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Tandy computers 

offer everything 
■ ■ ■ almost 

Check out the software that completes their systems 

— filePro® 


Tandy MS-DOS Software Comparison Chart 


GENERAL 

CHARACTERISTICS: 


Menu driven 


Allows user to create integrated 

business systems 


Developed systems and data can be 

moved to multi-user environments 


Professional support available 

from the software's authors 


PRICE 


CAPACITIES: 


Fields per record 


Characters per record 


Records per file 


Indexes per file 


Number of digits per numeric field 


Number of files usable concurrently 


Files span multiple drives 


FEATURES: 


Full-screen facility for creating 

custom screen layouts 


Full-screen facility for creating 

custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 


Conditional math 


User-defined menus 


Change file layout without 

losing existing data 


Data protection 


pfs 

File/Report 


yes 


no 


no 


no 


$265 


100 


1679 


1300 

1 


20 


1 

no 


yes 


no 


no 


possible 


no 



dBase" 

II 


no 


programmer 

required 


no 


no 


$595 


32 


1000 


65535 


10 


no 


no 


no 


programmer 

required 


filePro 16 

Smallware 


YES 


YES 


I 


YES 


YES 


V 


$495 


999 


s: 


4608 


V f 


16,000,000 


12 


24 


10 

up to 8 


YES 



The new Tandy computers 
can really speed things up. If 
you don’t let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi¬ 
user computers. 
filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 

To order, call 
(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call ( 212 ) 398 - 9290 . 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 
including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 




The Trial Computer Company, Inc. 

.240 230 West 41 st Street, Suite 1200, New York, New York 10036 

Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 
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Doing Derby 
with an 

Electronic Friend 


Oh, the sun shines bright on my Old Kentucky Home, 
It's summer, the people are gay 
The corn top's ripe and the meadow's in the bloom, 
And the birds make music all the day! 


M y Tandy 200 and I are taking 
in the Kentucky Derby this 
year. In fact, as I write this, 
the Derby is two days away and I have 
already loaded Federal Hill Software’s 
Handicapper into memory so I’ll be 
ready to make a “Spectacular Bid” to 
win some money rather than having to 
“Spend a Buck” at Churchill Downs. 

Derby comes once a year in Louisville 
on the first Saturday in May. It’s known 
as the “greatest two minutes in sports” 
because that is about how long it takes 
for 10 to 20 of the world’s best three- 
year-old thoroughbred horses to make 
a mile and a quarter Run for the Roses. 
But that’s just the part you see on TV: 
All week long is Derby Festival in 
Louisville — steamboat and balloon 
races, a “chow wagon” eating extrava¬ 
ganza, a parade and lots of other stuff. 
Does a lot of work get done the week 
of Derby? Of course not, but it is fun. 

Some 100,000 people will cram Chur¬ 
chill Downs this year for Derby (here it 
is just “Derby,” not “the Kentucky 
Derby,” not “the Derby,” or anything 
else. Just Derby). I wonder how many 
of them will bring along their 100s and 
200s? And, if I may wax philosophical 


for a bit, it seems fitting that computers 
affordable for everyone can play a part 
in an event called the sport of kings. 

I’m going to give The Handicapper a 
shot at helping me make a winning bet 
in the Derby. In order to do that, I’ve 
reserved one bank for the program, 
while leaving my two others for Dr. 
Preble’s programs navComp II. You 
see, I am also learning to fly and these 
programs are a great help in this 
endeavor. 

The point of all this is that it certainly 
is interesting to be using computers for 
things in which I am interested — horse 
racing and flying. Here, the computers 
are just tools, not the end-all in them¬ 
selves. 

The fact is that it is a whole lot easier 
handicapping horses with a computer 
than doing so by hand. And it is a joy 
to plan and execute a flight plan using 
a computer program as opposed to 
figuring things out on a circular slide 
rule. Notice what I am saying: these 
computers have use — utility. 

I am enjoying being exposed to that 
utility. And I am sure you are too. 

— Lonnie Falk 













NEW! MODEL 100 3-in-1 ROM 

Interactive Solutions 

All the software that you will ever need 
on the Model 100 Portable: 

i— Data Base 

2 — Spreadsheet 

3— Word Processor 
with Mail Merge 


The Dat a Base turns your Mod 100 into a per¬ 
sonal filing system. You can store, examine, update 
select, sort and list a wide variety of information - 
from personnel records and inventory facts to 
appointment schedules and client lists. 

■ The Spreadsheet turns your Mod 100 into a 
powerful decision tool. It is a full featured spread¬ 
sheet with 99x99 cells and provides fast decimal 
arithmetic in formula computation with complete 
range of scientific functions. 

■ The Word Processor uses the Text editor of 
Mod 100 and gives you additional features for 
formatting and printing. You can set margins, line/ 
para spacing, justify, define header/footer and use 
special print features like underline , boldface, etc. 

MORE MEMORY Interactive Solutions does not 
occupy RAM memory, so frees your precious RAM 
for larger data files. 

EXTRA CONVENIENCE Interactive Solutions 
plugs in the optional ROM socket. It is always resi¬ 
dent and ready to work. You don't need to load 
programs from cassette recorder any more. 

•Copyright DCM Data Products, Licensed to Tandy Corporation. 

Registered trademark of Tandy Corporation. 


Interactive Solutions integrates all of your data 
information in Mod 100. With a touch of a func¬ 
tion key, you can easily: 

• Select and move items from Data Base files 
into Spreadsheet columns. 

• Generate a report in Data Base program 
and move to the Word Processor. 

• Sf* a V, f art of Spreadsheet and move to the 

Word Processor. 

• Merge the items (like names, addresses) from 
Data Base files into a Form Letter and 
generate multiple letters or labels. 

All this and much more in 
a 32K bytes ROM from 


DCM Data Products 
1710, Two Tandy Center 
Fort Worth, Tx. 76102 
Tel: 817/390-2762 


data products (^) 


Radio Shack and Model 100 are trademarks of Tandy Corporation. 
1-2-3 is a trademark of Lotus Corporation. 
















Letters to PCM 


Fontastic Printing 

Editor: 

As a Tandy 1000 owner, 1 encountered 
some difficulties when I tried to find a font 
utility program that would drive my DMP- 
110 printer. Neither Broderbund’s The Print 
Shop nor Power Up’s The Printing Press do 
the trick, and Unison’s Print Master, which 
is listed in the new Tandy computer catalog, 
only drives the newer IBM-compatible 
printers put out by Tandy. 

The solution to my search became Pro- 
Soft’s Fontasy , an excellent program that 
drives all Tandy printers (and many others) 
and seems particularly well-mated to the 
1000. For example, although ProSoft’s 
documentation states that an IBM PC needs 
512K memory to compose a full page in 
Fontasy , my 384K machine handles the job 
easily, possibly because of its built-in high 
resolution graphics. 

Fontasy is a flexible program that can 
easily magnify, mirror, invert, etc., any of its 
fonts — and there are a lot of fonts available. 
The program also comes with a design 
system that allows a user to modify existing 
fonts or create new ones, and a template 
section that sets up and prints multicolumn 
pages with letterheads and even flows text 
around predefined graphics “windows” on 
the page. Then there’s a graphics capability 
that draws free-hand or rubberband lines, 
rectangles and ovals (you can change the 
aspect ratio before fixing the oval on the 
page), and a fill option that includes 95 
patterns. All of this is simply driven by a 
series of menus and mnemonic commands. 

I heartily recommend Fontasy to Tandy 
1000 owners who are looking for a font 
program that suits their computer, drives 
their printer and, at $49.95, won t strain 
their wallet. 

By the way, I have also devised a simple 
method for using the RAM3 dictionary in 
Turbo Lightning with a floppy disk — a 
trick I’d be happy to share with anyone who 
sends a self-addressed, stamped envelope to 
1808 Whispering Hill, 37043. 

Thomas A. Pa lien 
Clarksville, TN 


WORD, would be \W0RD>. This prevents 
confusion when several subdirectories are 
used, and when changing back and forth 
between Drive C and Drive A. 

The command can easily be set up, as 
described by Mr. McCormick, in the RUTO 
EXEC.BRT file. Try it by typing in the 
command and pressing ENTER. Then, if you 
like it, put it in the RUTOEXEC.BRT file. 
You’ll wonder how you ever survived with¬ 
out it. 

My second suggestion has to do with the 
TREE command, which is excellent for 
checking the status of your directories and 
paths. This command is omitted from the 
Tandy 2000 version of MS-DOS, but can be 
easily copied from a version that includes it. 
Typing TREE gives a directory of all your 
subdirectories and paths. 

As a self-taught computer enthusiast, I 
find the issues of PCM an inexpensive, but 
valuable aid in my continuing education. 
This is one magazine I won’d lend to friends 
for fear they might have it when I need it for 
reference. I just hand them a subscription 
card and tell them to get their own! 

Irma Canfield 
Franklinton, LA 


error-checking protocol Most Tandy 
1000 terminal packages support 
XMODEM. For your Tandy 100, try 
Segia’s X-Tel (reviewed in this issue). 


Looking for 
Expansion Board 

Editor: 

In the February 1986 issue of PCM in the 
article “Upgrade Your Tandy 1000,” you 
refer to a PBJ MFB-1000 memory expan¬ 
sion board. Please tell me how to receive 
information about the board, the manufac¬ 
turer’s name and address, the price and 
where I might purchase one. 

Jan A. Hanson 
Ramsey, MN 


The MFB-1000 is available from 
PBJ Inc., 5725 Kennedy Boulevard, 
N. Bergen, NJ 07047, (201)861-0126. 


Additions for the ‘Wooing’ Repertoire 

Editor: 

Hard disk users should take heed of John 
McCormick’s advice on setting up subdirec¬ 
tories. (“Wooing Ms. DOS,” April 1986, 
Page 79). It makes life so much simpler. 

I would make two additional suggestions. 
The command PROMPT &p$g lets you know 
where you are all of the time by displaying 
the directory name. For instance, the root 
directory prompt would be \>, and the 
prompt for Mr. McCormick’s subdirectory, 

8 PCM June 1986 


Tandy Communication Connection 

Editor: 

For a year now, I have been receiving 
PCM every month. I am very well-taught on 
the use of my Tandy 100 and Tandy 1000. 

I read every page of the magazine and put 
to work any application program that is of 
concern to me. 

I have one question: How do I set the 
parameters on my Tandy 100 and 1000 in 
order to have both computers communi- 
cate? I have the RS-232 interface board 
installed in the 1000. 

Bernard Mongeau 
Sillery, Quebec 

Setting the communications 
parameters is actually the simplest 
step in getting two computers to 
communicate. The important thing to 
remember is the parameters are set the 
same on both machines. But, there is 
much more to communications than 
parameters. 

The first step to getting two com¬ 
puters to communicate is finding 
communications software for both 
machines. The Telcom software built 
into the Tandy 100, and DeskMate, 
which comes with the 1000, aren t 
really the answer. To accurately 
transfer files between the two ma¬ 
chines, you'll need software that 
supports XMODEM or some similar 


The Key You have Pressed . . . 
has been Changed . . . 

Editor: 

I wanted to let you know that I really 
appreciate the support you are providing to 
Tandy users, and to pass on a problem 1 have 
discovered with the GW-BAS1C Version 2.02 
(Tandy Version 1.01.00). 

Here in Fairbanks our nearest source ot 
reliable information is Seattle. All we have 
for support is provided by a local Radio 
Shack franchise that knows very little about 
the computers they sell. Your magazine 
provides valuable information. 

The problem I discovered with the most 
recent version of BASIC is in the key trapping. 
The new version of basic does not recognize 
function keys Fl l and F 1 2 as 11 and 12.1 was 
told by the software support people in Fort 
Worth that in an effort to make this verison 
of BASIC more compatible with the IBM 
version of GW-BAS1C, the function keys Fil 
and F12 are now assigned 21 and 22. The keys 
for the purpose of key trapping are now 
numbers 1 through 10, as Fl through F10. 
The cursor control keys are assigned: up - 
11, left = 12, right = 13, down = 14, and Fl l 
and Fl2 are now 21 and 22, respectively. I 
stumbled onto this trying to run the Sketch 
program from your October 1985 magazine 
(Page 10). I hope this may be of help to 
others who have realized there is a problem, 
but were unable to track down the cause. 

Jerald L. Coffman 
North Pole, AK 
















DISK POWER 


AT LAST !! 


ULTRA CHARGE YOUR TANDY PORTABLE DISK DRIVE 

DISK POWER 100/200/102 


• FULLY MENU DRIVEN 

Any DISK or RAM file is selected by the cursor. The stroke 
of a SINGLE function key will perform the desired task on 
the HIGHLIGHTED file. You may never have to remember 
or even type a filename again, when using DISK POWER! 


No need to rely on FLOPPY.CO or user-written programs for 
external utilities. DISK POWER is not just another disk 
manager program, it is the full featured DOS that the MODEL 
100 should have had from the very beginning! 

• DISK ACCESSIBLE FROM BASIC & TEXT 

Data file I/O operations supported with familiar BASIC com¬ 
mands. Save and Load programs from within BASIC. From 
TEXT, every .DO file can be Loaded from or Saved to Disk 

by DISK POWER. 

• TELCOM ENHANCEMENTS 

Direct Access to Basic & TEXT from inside TELCOM. Kill, 

Load, Save or Edit files without losing telephone communi¬ 
cations. You can see your files while uploading. With 
DISK POWER, it is all possible! 

• 24 HR/DAY BBS TECHNICAL INFORMATION & SUPPORT 

Use STAT M8N1E, and Log-on with ID: DISK usinn 


• NOT JUST “FOR HACKERS ONLY” 

Though programmers will be surprised by the versatility of 
DISK POWER, regular users will find our operating system 
FAST, easy to use AND easy to understand. 


No surcharge for VISA or MC 
To order, call TOLL FREE: 


or send CHECK or MONEY ORDER to: 


P-O. Box 219, Ste Anne de Bellevue, Quebec 
CANADA H9X 3R9 (514) 457-9293 (9-5 EST) 


















Barden’s Buffer 


1000/1200/2000/3000 


Not satisfied with just the 
old Alphabet? Here's 
how to make your 
computer multi-lingual 

What a Bunch 
of Characters! 

By William Barden, Jr. 


fou’d think that the subject of 
video characters would be cut 
and dried, wouldn’t you? 
However, there are some in- 

_ teresting and amazing things 

that can be done with Tandy MS-DOS 
machines vis-a-vis video characters. I 
was surprised to discover that you can 
add any number of your own text or 
special characters to BASIC (or other) 
programs — you can easily add a full 
set of Cyrillic or Arabic characters for 
video display, for example, and you 
could have dozens of sets of characters 
in RAM or on disk ready at your beck 
and call. I’m not talking about labor¬ 
iously constructing characters in gra¬ 
phics, either. You can use a statement 
such as this to print out three custom 
tailored characters: 

100 PRINT CHR$(133) +CHRS 
(137)+CHRi(200) 

In the process of researching this 
topic, 1 came up with some other tricks 
and techniques worth mentioning, in¬ 
cluding textures and form characters 
for video, and a way to produce virtu- 


William Barden, Jr. is a master com¬ 
municator in a field in which he is one 
of the few recognized experts — micro¬ 
computers. A prolific author of more 
than 27 books on computers and com¬ 
puter programming. Bill also has au¬ 
thored several instructional software 
projects for Tandy / Radio Shack. 


ally any size character from the built-in 
set of MS-DOS characters. Interested? 
Read on. 

The Standard Set of Characters 

I shouldn’t tell you this (you may 
know already), but the Tandy 1000 is 
really just an IBM PCjr in wolf’s clo¬ 
thing. In fact the 1000 looks virtually 
identical to the PCjr as far as graphics, 
sound and architecture. Of course, the 
1000 is what the PCjr should have been 
— a machine with an excellent key¬ 
board, more than one disk drive, hard 
disk and other expandability. My point 
in mentioning this is that PCjr and PC 
technical documentation is excellent 
(and available), and can be used (with 
some caution) to find out what’s hap¬ 
pening in the Tandy 1000,1200, or 3000. 

Tandy MS-DOS systems use the 
same character set as the IBM ma¬ 
chines. As you know, ASCII characters 
are used as a base. Standard ASCII 
characters make up the first 128 char¬ 
acters from zero to 127 decimal — they 
use a seven-bit code, as shown in Figure 
1 . 

The characters from 32 decimal to 
127 are common alphabetic, numeric 
and special characters. Even though the 
ASCII code is supposed to be standard, 
you’ll find some variations in some of 
these codes on various printers and 
systems. But we’ll use the IBM/Tandy 
codes as gospel. The codes from zero 
through 31 are the so-called “control 
. codes.” Generally, these codes are not 
printable. They provide for data com- 
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Figure 1. ASCII Characters 
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example, allows you to embed control 
characters in the text. The funny faces 
and other characters display in the text 
and can be used to control special 
printer functions such as underlining 
and boldface. 

It would be interesting to read the 
internal IBM memos to see how and 
why some of the glyphs were chosen — 
why both a normal and inverse video 
funny face, for example? Why card 
suits? Why not an IBM logo, to really 
put their stamp on things? 


-- uvuwuo autn aa es¬ 
cape), SOH (Start of Header), and EOT 
(End of Transmission). Also in the 
control codes are the necessary Carriage 
Return code (13), Line Feed (10), Form 
Feed (12) and other formatting codes. 

Most of the 128 ASCII codes can be 
displayed on the screen. The normally- 
printable codes are displayed by simply 
including them as standard text charac¬ 
ters: 


100 PRINT "Insert 25 cents 
to continue with MS-DOS" 


IBM assigned characters for many 
control codes — an ASCII one (nor¬ 
mally SOH) prints as a happy face, for 
example, and an ASCII eight (normally 
BS or Backspace) prints as a small 
diskette. To print these codes, you can 
use a CHR$ statement in a BASIC pro¬ 
gram or special prefixes in other lan¬ 
guages (Chr in Turbo PASCAL, for 
instance): 


100 PRINT "Have a nice day 
;CHR$(1);" . . . dummy" 


Various programs have different 
ways of displaying some of the codes — 
the My Word\ word processor, for 


The Alternate Character Set 

A seven-bit code such as ASCII 
leaves 128 unused code values in an 
eight-bit byte, values from 128 through 
256. Various manufacturers have tried 
their hand at special codes in this group. 
Fortunately, reason prevailed at IBM, 
and minuscule profiles of the top 128 
IBM executives were not used in this 
sequence, although it was a close deci¬ 
sion. Instead, the characters shown in 
Figure 2 were implemented. 

The first group of these characters 
represent foreign characters such as 
umlauts (ii) and commonly used char¬ 
acters not in the basic 128-, such as the 
British pound sign (*) and one-half and 
one-quarter fractional signs. These are 
followed by gray shading characters, 


Figure 2. Alternate Characters 
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form characters, block graphic charac¬ 
ters, a portion of the Greek alphabet 
and mathematical symbols. 

All of these characters can be entered 
directly from the keyboard by holding 
down the ALT key and then entering the 
character code from the numeric key¬ 
pad. To display the line segment (%), for 
example, you’d press ALT and then enter 
215. 

The problem with most of these 
characters is that many software pack¬ 
ages and printers are not equipped to 
handle them, even though they can be 
displayed on the screen. I have an older 
Radio Shack DMP-2100 as my main 
printer for a Tandy 1000 and IBM PC 
and an IBM Graphics printer on my 
PCjr. The DMP-2100 doesn’t recognize 
the expanded character set and ignores 
characters that display on the screen or 
prints a different character. The IBM 
Graphics printer prints any character 
that can be displayed on the screen 
because it is designed that way. Any 
newer printer that is MS-DOS compat¬ 
ible will also print any of the 256 screen 
characters, including Tandy printers, of 
course. 

Displaying the characters in the 
alternate character set is ideal, because 
it eliminates the messy CHR$ coding in 
favor of actually seeing what will be 
printed. An example is the code seg¬ 
ment shown in Figure 3, which shows 
a portion of a form that is constructed 
using the line segments in the alternate 
character set and entered directly from 
the keyboard with the ALT key and 
numeric keypad. Being able to display 
the form on the screen allows you to 
easily position and align the characters, 


Figure 4. Eight by Eight 
Pixel Encoding 
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either for display or printing. 

The texture characters are often 
overlooked in the alternate character 
set. Characters 176,177 and 178 provide 
a dot texturing of the entire character 
position. They can be used to simulate 
colors on monochrome displays for 
such things as bar graphs. 

Characters in the Graphics Mode 

One of the nice things about MS- 
DOS systems is that both graphics and 
text can be intermixed. This was not so 
in many earlier computer systems. In 
the text mode of BASIC (SCREEN 0) the 
screen characters, including the alter¬ 
nate characters, are formed by a ROM 
character generator. This is a chip that 
contains all of the patterns for the 
characters; each character is encoded in 
8-by-8 pixel form, as shown in Figure 
4. (The monochrome adapter used on 
the PC series and Tandy 1200 actually 
generates a higher resolution 9-by-14 
pixel character.) 

In graphics modes, characters are not 
generated by the ROM character gener¬ 
ator, but by the system BIOS, the 
firmware that drives input and output 
devices for MS-DOS. This implementa¬ 
tion allows mixing both text and graph¬ 
ics. 

The characters are generated from a 
table of characters in the BIOS firm¬ 
ware in high memory. To get at these 
characters from basic and other lan¬ 
guages, it’s necessary to use the DEF SEG 
statement. 


Segment Addressing 

PC machines such as the Tandy 1000 
allow a total of 1,048,576 bytes of 
memory to be addressed — the address¬ 
ing space of the 8088 microprocessors 
used in the IBM PC, Tandy 1000 and 
Tandy 1200. This addressing space is 
divided up into RAM (user memory), 
ROM (system BIOS) and dedicated 
addresses, as shown in Figure 5. 

The 8088 was an offshoot of the 
8080/ 8085 microprocessors which were 
geared towards a 65,535 byte (64K 
bytes) addressing space. To maintain 
compatibility with the older micropro¬ 
cessors, the 8088 uses the notion of 
segments. Segments divide the address¬ 
ing space into 64K blocks. Within the 
blocks, any of the 64 K bytes can be 
addressed by an offset address of zero 
through 65,535. To address another 
part of memory, a segment register is 
changed to point to another block. 
(That’s the basic scheme, although a 
little bit simplified.) 

BASIC uses its own 64K block for 



Figure 5. Memory Layout 
and Segment Addressing 



Figure 6. BIOS Character 
Table 
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Figure 7. Character Expander Parameters 


CH$ = “TEXT” 

CX,CY Point to upper-left 



storage of program and data variables. 
However, any portion of memory can 
be addressed in BASIC by changing the 
data segment register with the DEF 5EG 
command. DEF SEG uses an address of 
zero through 65,535 (hexadecimal 0000 
through FFFF). The actual physical 
address generated from the segment 
address adds a hexadecimal zero on the 
right — DEF SEG &HF000, for example, 
becomes &HF0000. Once the segment 
address is specified, any of the 64K 
bytes within the segment can be ac¬ 
cessed by PEEKs and POKES and other 
BASIC statements. A DEF SEG without 
an operand sets the data segment reg¬ 
ister back to the original value of 
BASIC’s data segment. 

Location of the Characters 

In the basic PC (Tandy 1200), only 
the first 128 characters are allowed in 
graphics. However, in the PC jr and 
Tandy 1000, all of the 256 possible 
characters are permitted. We’ll address 
ourselves to the PCjr /Tandy 1000 con¬ 
figuration here. The first set of 128 
characters — the standard ASCII — is 
found at physical address &HFFR6E in 
ROM BIOS. Each character is made up 
of eight bytes containing eight bits per 
byte, as shown in Figure 6. The 64 bits 
make up the 64 pixels of the character 
as shown in the figure. As there are 128 
characters in the first set, the table is 128 
by eight, or 1,024 bytes long. 

The second portion of the table is 
located at physical address &HFC070 in 
Tandy BIOS. The arrangement of the 
characters here is the same as in the first 
set — eight bytes per character. 

A Character Expander 

To print a character, the BIOS soft¬ 
ware looks at the character code, ac¬ 
cesses the character table, and then 
prints the dots that make up the char¬ 
acter. In the 640-by-200 resolution 
mode, for example, eight rows of eight 
columns are printed for each character. 

We can take advantage of the built- 
in character table to accomplish inter¬ 
esting things. One possibility is shown 
in Listing 1. This is a graphics subrou¬ 
tine that allows expanded characters to 
be displayed. The basic approach here 
is to pass the subroutine a string of 
characters to be displayed along with 
the display position and scale factor, as 
shown in Figure 7. 

The scale factor allows characters to 
be stretched vertically or horizontally, 
as shown in Figure 8. To incorporate the 
subroutine in your own BASIC pro¬ 
grams, pass it the string as CHS, the ‘X’ 


and ‘Y’ scale factors as X5C and V5C and 
the upper left corner of the starting 
character position as CX,CY. The only 
disadvantage of the subroutine is that 
it’s rather slow. However, compiling the 
BASIC code speeds things up by a factor 
of about 10. 

The subroutine works as follows: An 
individual character is stripped from the 
CHS string from left to right. For each 
character in the string, the correspond¬ 
ing ASCII code is found by the RSC 
function. The ASCII code is used to 
find the dot-matrix form of the charac¬ 
ter in the BIOS table and move the eight 
bytes to the array Z.CHR. 

The 64 bits of the dot-matrix form are 
now scanned a row at a time. For each 
row scanned, there are eight columns, 
found by counting Z.X from zero to 
seven and using 2^ 7-Z.X) as an RND 
value to find whether the pixel should 
be on or off. The SGN function just sets 
Z.PIX to a zero or one for a two-color 
mode representation of the character. 
Change this for four-color graphics. 

Each pixel position is repeated the 
number of times defined by XSC, ex¬ 
panding the character widthwise. Each 
row is repeated based upon YSC, ex¬ 
panding the character lengthwise. 

At the end of the display, CX and CY 


are adjusted to point to the upper left- 
hand corner of the next screen “charac¬ 
ter position,” based upon the size of the 
character in the expanded mode. 

Creating Your Own Character Set 

All of this leads us to the main point 
of this column — how to add your own 
characters. The ROM BIOS is meant to 
be used as a standard way of performing 
system functions. It contains a set of 
routines to handle all system I/O — 
scrolling the screen, communicating 
with the RS-232C port, and so forth. 
The code has a lot of “hooks” in it to 
allow a systems programmer to add 
extensions and change things around in 
an orderly fashion. BIOS uses a set of 
software interrupt vectors located in 
low memory — way down in Segment 
Zero. Instead of jumping directly to an 
I/O handler in ROM, a programmer 
should make a system call via a software 
interrupt, which would then route the 
call to the proper BIOS routine. 

Interrupt vectors in ROM look like 
Figure 9. They are four bytes long and 
consist of a segment address and an 
offset. The segment address and offset 
define a BIOS memory location for the 
function. 

Both the standard ASCII characters 
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IF YOU’RE MISSING THIS, 

Add a ROM-Based Software Module to 


If you own a Model 100, 
then you already know. You 
know that the Model 100 
comes with five built-in man¬ 
agement programs. You know 
about the full-size typewriter- 
style keyboard and the direct- 
connect modem and telephone 
auto-dialer. But did you know 
how easy it is to boost your 
portable’s power with Multi¬ 
plan or Interactive Solutions? 

You’re really missing out if 
you don’t know how easy it is 
to supercharge your Model 
100. Just turn your machine 
over, pop in either of these 
high-performance ROM mod¬ 
ules, and you’ve got a powerful 
little machine that can do any¬ 


thing from complex spread¬ 
sheet analysis and calculations 
to sales forecasts, profit-and- 
loss projections, budgeting, 
pricing, engineering calcula¬ 
tions and much more. 

Powerful spreadsheet 
Let Model 100 Multiplan 
(26-3829, $149.95) replace 
y our pen, paper and calculator. 
Multiplan is an electronic 
worksheet—a large grid for en¬ 
tries, each of which can be 
words, titles, numbers or for¬ 
mulas. Multiplan then performs 
complex calculations... . in¬ 
stantly! And because it remem¬ 
bers relationships between 
entries on a worksheet. Multi- 
plan automatically performs 


calculations with a large num¬ 
ber of variables. This lets you 
test plans by putting different 
values into your formulas. 

You’ll soon find that Multi- 
plan is a vast improvement over 
“hand calculating’.’ It offers a 
worksheet with up to 99 rows 
and 63 columns. You can in¬ 
stantly insert or erase data and 
widen or shrink columns, elimi¬ 
nating the costly and time- 
consuming work of typing or 
hand printing the worksheet 
over and over. ; 

Get three programs for 
the price of one 

Interactive Solutions for the 
Model 100 (26-3844, $349.95) 












YOU’RE MISSING OUT! 

Supercharge your Portable 100/200. 


is a 3-in-l cross-referencing 
software package with database 
management, spreadsheet and 
word processing. 

Information stored in Data 
Manager, the data base, can be 
utilized by Data Gale, the 
spreadsheet program. The 
Word Processor allows you to 
merge Data Manager informa¬ 
tion into your text. Or you can 
select any part of a Data Calc 
worksheet and add it to any 
text file in Word Processor. 

Interactive Solutions is easy 
to learn too, because it’s de¬ 
signed to be self-explanatory 
and guide you through each 
process. Clear and concise la¬ 


bels and menus make decision 
making easy. 

Expand your Tandy 200 

Add ROM-based power to 
make your Tandy 200 more ver¬ 
satile, too. With Multi-Solutions 
you get three powerful applica¬ 
tions: a word processor which 
allows formatting of any text 
file; 1 ime Minder, a calendar 
program that lets you keep 
track of appointments; and 
Data Manager to help you man¬ 
age dates, addresses, invento¬ 
ries and more. 

Come in today! 

Supercharge your portable 
today. Drop by your nearest 
Radio Shack Computer Center! 


The Technology Store™ 

A DIVISION OF TANDY CORPORATION 


Send me an RSC-16 
Computer Catalog 

Radio Shack, Dept. 86-A-140 
300 One Tandy Center 
Fort Worth, TX 76102 


Company. 


Prices apply at fiao/o snack computer centers 
participating stores and dealers. Multiplan/TM Microsoft 
Corp. 
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Figure 9. Interrupt Vector 
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J to find Physical Address 
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and alternate character set have point¬ 
ers that look like the interrupt vectors 
of the figure. The pointer to the stand¬ 
ard character set is located at &H110 
through &H113, and the pointer to the 
alternate character set is located at &H7C 
through &H7F. The original PC type 
systems allowed only the first 128 
characters to be displayed in graphics 
mode. However, they also permitted the 
user to put in a pointer to his own 
alternate character set in graphics 
mode. Later systems, such as the PCjr 
and Tandy 1000, allowed all 256 char¬ 
acters in graphics mode, but kept the 
pointers. In fact, then, we can simply 
substitute our own character set by 
changing the pointers — say the pointer 
to the alternate character set. 

To see how this works, load basic 
and enter the commands in Figure 10. 


Figure 10 

Ok 

SCREEN 2 
0I< 

DEF SEG=0: PRINT PEEK (&H510): 

PRINT PEEK(&H511): DEF SEG 
xxxx (typically 128) 
yyyy (typically 21) 

0k 

CLERR ,19999 _ 
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Ok 

DEF SEG=0: POKE &H7C,32: 

POKE &H7D,70: POKE &H7E,xxxx: 
POKE &H7F ,yyyy 
Ok 

DEF 5EG 
Ok 

FOR 1=20000 TO 20007: 

POKE I, &HR0: NEXT 
Ok 

PRINT CHR$(120) 

The xxxx and yyyy are the addresses 
obtained from the first PEEKS and 
represent the data segment address of 
BASIC. They are put into the alternate 
character set segment pointer addresses. 
The offset is set to 20,000, meaning the 
20,000th location within BASIC, a free 
area, protected by the CLERR ,15999 
statement. 

If you did this sequence correctly, you 
will see a pair of vertical lines displayed 
after the PRINT CHR$(128). What 
you’ve done is to change the location of 
the alternate character set to a protected 


memory area within the BASIC 64K 
segment. As each character takes up 
eight bytes, creating a table of 1,024 
bytes will give you a new set of alternate 
characters, one that can be changed at 
will. You could, for example, do BSRVEs 
and BLDRDs in BASIC to save and reload 
the 1,024-byte memory area with any 
new character sets you wish. You could 
even define larger patterns made up of 
several characters, although this is 
probably better done in standard graph¬ 
ics. 

The beauty of the alternate character 
method is that you can use a CHR$ with 
a value of 128 through 255 instead of a 
set of graphics commands to print the 
character. Once the set is defined, you 
can also use the ALT key method of 
entry on the screen. 

How Do You Edit the Characters? 

There is a problem, though. How can 
you easily create the characters to be 
used? What’s really needed is a charac¬ 


ter editor. By a lucky stroke of fate, I 
just happen to have one here. (See 
Listing 2.) 

The character editor is not a new idea. 
I saw a version of it on an ACT Apricot 
system, an MS-DOS machine with tiny 
diskettes, a small “footprint,” and a 
huge price several years ago. The basic 
display is shown in Figure 11. 

The 128 characters of the alternate set 
are displayed at the bottom of the 
screen, referenced by code. Initially, 
these characters will be garbage, as the 
pointer points to a character work area 
at an offset of 20,000 within BASIC. 

There are three basic functions — 
saving a new file, loading an old file, and 
editing a character. The editing function 
is the guts of the program. 

If you’ve selected the character edit, 
the current character is displayed in an 
8-by-8 matrix in the middle of the 
screen. This matrix is designed to re¬ 
semble the actual screen dimensions of 
the character as much as possible. The 


Figure 11 

GRAPHICS EDITOR 

1. Read in old file 

2. Save characters in file 

3. Edit character 
Arrows=HOve; I=Ink toggle; Q:Quit 



01234567890123456789012345678901 
128 to 159 R \ 

160 to 191 B 7 

192 to 223 v 

224 to 255 fl 1 N 1 
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screen has an aspect ratio of four units 
horizontally to three units vertically. In 
80-character mode each character is 
4 /so = V 20 unit wide by 3 / 25 unit high, 
making the aspect ratio of a character 
one to 2.4. 

During the edit mode, you can move 
a cursor by the up arrow, down arrow, 
right arrow and left arrow keys. A small 
dot in the middle of each of the 64 
rectangles marks the position of the 
cursor. Pressing the I key sets or resets 
an “ink” mode. If ink is on, the rectangle 
within the square is filled in. If ink is off, 
no filling in is done. 

As the character is drawn on the 
matrix, you’ll also see it reproduced in 
the proper position at the bottom of the 
screen. The large display is good for 
defining the character, but the small 
display is necessary to see what it 
actually looks like on the screen. 

Pressing 0 quits the character edit 
mode and returns you to the short main 
menu from which another character can 
be selected for edit. 

The current set of characters can be 
saved at any time in any file you wish 
to name. (If no extension is used, BASIC 
uses a .BAS extension.) A file can be 
added to or edited by reloading an old 
file, changing it, and rewriting it under 
the same or a different name. 

Once the character sets are defined, 
you can easily invoke them from your 


own program without using the charac¬ 
ter editor. Just change the &H7C through 
&H7F locations as in the graphics editor 
to point to your own memory area or 
the memory area used in the graphics 
editor. The &H7E and &H7F locations 
must be changed to the location of 
BASIC’s data segment as in the editor. 
The &H7C and &H7D must be changed to 
point to the offset within BASIC as 
before. See Listing 3. 


Prior to loading in a character set, the 
memory area to be used must be pro¬ 
tected by the CLEAR ,xxxxx statement. 
This prevents BASIC from clobbering 
the character data as it uses memory for 
stack and string storage. Any conven¬ 
ient area that can be protected can be 
used, dependent upon the size of mem¬ 
ory in your system, size of BASIC pro¬ 
gram and so forth. The one used in 
Listing 3 is usable with a 128K system. 

The character set is loaded by a 
BLOAD command of the form 


BLOAD "name" n xxxxx 

The xxxxx offset parameter is not 
necessary if you’re loading the character 
set into the same area that was used in 
creating the data. If you’re loading into 
another area, use the offset of the area 
in the BLOAD command. 

As many BLOADs as necessary can be 
done with as many character sets as 
you’ve defined. Within the BASIC pro¬ 


gram, use the character set by CHR$ 
statements with values of 128 through 
255. 

And that’s the story of how to add 
any number of characters to your 
graphics screens. A little manipulation 
with pointers and some creative editing 
for the character set, and you have 
Japanese Kata-Kana or your own spe¬ 
cial characters. There are other tricks 
that can be used for character genera¬ 
tion and we’ll use some of them in future 
columns. See you next month. □ 


Listing 3: 

100 CLEAR ,19999! 

110 BUFFER - 20000! 

120 SCREEN 2 

130 DEF SEG - 0: POKE &H7E, PEEK(6cH510) : 

POKE &H7F, PEEK(&H511): POKE &H7C, 

BUFFER - INT(BUFFER/256)*256: POKE &H7D, INT(BUFFER/256) 
140 DEF SEG 


Listing 1: 

100f 1 Sample driver for Character Expander 
110 SCREEN 2 
120 CLS 


130 

CH$ = "Tandy": 

CX = 100: 

CY = 20: 

XSC = 2: 

YSC = 2: 

GOSUB 

10000 

140 

CH$ = "Tandy": 

CX = 100: 

CY = 40: 

XSC = 4: 

YSC = 2: 

GOSUB 

10000 

150 

CH$ = "Tandy": 

CX = 100: 

CY = 60: 

XSC = 8: 

YSC = 2: 

GOSUB 

10000 

160 

CH$ = "Tandy": 

CX = 100: 

CY = 80: 

XSC =10: 

YSC = 6: 

GOSUB 

10000 


170 GOTO 170 
180 1 
190 * 

10000 ■=====================================: 

10010 1 Character Expander Subroutine 
10020 ■ Input: CH$ = Character string 
10030 1 CX = current x position 

10040 1 CY = current y 

10050 1 XSC = x scale factor - 1 to n 

10060 1 YSC = y scale factor - 1 to n 

10070 1 Output:CX = updated 

10080 1 CY = updated 

10090 -- 

10100 DEF SEG = &HF000 
10110 FOR Z.SI = 1 TO LEN(CH$) 

10120 CH = ASC(MID$(CH$,Z.SI,1)) 
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10130 FOR Z.I = 0 TO 7 

10140 Z.CHR(Z.I) = PEEK(&HFA6E + CH*8 + Z.I) 

10150 NEXT 

10160 FOR Z.Y = 0 TO 7: FOR Z.J = 1 TO YSC: FOR Z.X = 0 TO 7: FOR Z.X = 0 TO 7 
10170 Z.PIX = SGN(Z.CHR(Z.Y) AND 2 A (7 - Z.X)) 

10180 FOR Z.I = 1 TO XSC: PSET (CX, CY), Z.PIX: CX = CX 
10190 NEXT: NEXT: CX = CX - XSC * 8: CY = CY + 1: NEXT: 

10200 CX = CX + XSC * 8: CY = CY - YSC * 8 
10210 NEXT Z.SI 
10220 DEF SEG: RETURN 
10230 


+ 1 
NEXT: 


NEXT 



Character Editor Program 


'change these as required 


140 CLEAR ,19999! 

150 BUFFER = 20000! 

160 SCREEN 2 

170 KEY OFF: ON ERROR GOTO 3430 

180 DEF SEG = 0: POKE &H7E, PEEK(&H510): POKE &H7F, PEEK(&H511): 

POKE &H7C, BUFFER - INT(BUFFER/256)*256: POKE &H7D, INT(BUFFER/256) 
190 DEF SEG 
200 CLS 

210 LOCATE 1, 25: 

220 LOCATE 3, 27: 

230 LOCATE 4, 27: 

240 LOCATE 5, 27: 

250 LOCATE 17, 16 
260 '.. 


PRINT "GRAPHICS EDITOR" 
PRINT "1. Read in old file" 

PRINT "2. Save characters in file" 
PRINT "3. Edit character" 


270 PRINT "01234567890123456789012345678901" 
280 FOR Z.I = 0 TO 3 

290 LOCATE 19 + Z.I * 2, 1: PRINT USING "### to ###"; Z.I * 32 + 128, 

Z.I * 32 + 159; 

300 NEXT Z.I 
310 FOR Z.I = 0 TO 3 
320 LOCATE 19 + Z.I * 2, 16 

330 FOR Z.J = 0 TO 31 

340 PRINT CHR$(128 

350 NEXT Z.J 
360 NEXT Z.I 

370 LOCATE 6, 20: PRINT " 

380 LOCATE 6, 30: PRINT "Your choice: " 

390 A$ = INKEY$: IF A$ = "" THEN 390 ELSE Z.RES = VAL(A$) 

400 IF Z.RES < 1 OR Z.RES > 3 THEN 370 

410 ON Z.RES GOTO 1020, 2020, 3010 


+Z.I*32+Z.J)+ 


1000 

1010 ' 1. Read in Old File 
1020 LOCATE 6, 20: PRINT " 

1030 LOCATE 6, 30: INPUT "Input File: 
1040 IF Z.RES$ = "" THEN 370 
1050 BLOAD Z.RES$ 

1060 GOTO 310 

2000 *.... 


Z.RES$ 
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2010 

2020 

2030 

2040 

2050 

2060 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 


' 2. Save Characters in File 
LOCATE 6, 20: PRINT " 

LOCATE 6, 30: INPUT "Output File: 
IF Z.RES$ = "" THEN 370 
BSAVE Z.RES$, BUFFER, 1024 
GOTO 370 


Z.RES$ 


' 3. Edit Character 
FOR Z.I = 7 TO 15 

LOCATE Z.I, 30: PRINT " 

NEXT Z.I 

LOCATE 6, 24: PRINT " " 

LOCATE 6,24: INPUT "Character number (128 - 255): ", Z.RES 
IF Z.RES < 128 OR Z.RES > 255 THEN 3050 
FOR Z.I = 0 TO 8 

LINE (281, Z.I * 8 + 55) - (345, Z.I * 8 + 55) 

NEXT Z.I 

FOR Z.I = 0 TO 8 

LINE (Z.I * 8 + 281, 55) - (Z.I * 8 + 281, 119) 

NEXT Z.I 

FOR Z.R = 0 TO 7 

Z.CH = PEEK(BUFFER + (Z.RES - 128) * 8 + Z.R) 

FOR Z.C = 0 TO 7 

Z.PIX = Z.CH AND 2 a (7 - Z.C) 

IF Z.PIX O 0 THEN PAINT (Z.C * 8 + 285, Z.R * 8 +59) 

NEXT Z.C 
NEXT Z.R 

LOCATE 6, 24: PRINT " 

LOCATE 6, 24: PRINT "Arrows=move; I=Ink toggle; Q=Quit"; 

Z.X = 317: Z.Y = 91: Z.I = 0: PSET (Z.X, Z.Y) 

IF Z.I = 1 THEN LINE (Z.X - 3, Z.Y - 3) - (Z.X + 3, Z.Y + 3),1,BF 


ELSE LINE (Z.X - 3, Z.Y - 3) - (Z.X + 3, Z.Y + 3),0,BF 
3250 IF Z.I = 0 THEN PSET (Z.X, Z.Y) 

3260 Z.CH = PEEK(BUFFER + (Z.RES - 128) * 8 + (Z.Y - 59) / 8 ) 

3270 IF Z.I = 1 THEN Z.CH = Z.CH OR 2 A (7- (Z.X - 285) / 8) ELSE 

Z.CH = Z.CH AND (255 XOR 2 A (7 - (Z.X - 285) / 8 )) 

3280 POKE (BUFFER + (Z.RES - 128) * 8 + (Z.Y - 59)/ 8 ), Z.CH 

3290 LOCATE 19 + INT((Z.RES - 128)/ 32 ) * 2, 16 + (Z.RES AND &H1F) * 2 

3300 PRINT CHR$(Z.RES); 

3310 Z.A$ = INKEY$: IF Z.A$ = "" THEN 3310 

3320 IF Z.A$ = "i" OR Z.A$ = "I" THEN Z.I = Z.I XOR 1 ELSE 3340 
3330 GOTO 3240 

3340 IF LEFT$(Z.A$,1) O CHR$(0) THEN 3410 
3350 Z.A$ = RIGHT$(Z.A$, 1) 

3360 IF Z.I = 0 THEN PRESET (Z.X, Z.Y) 

3370 IF Z.A$ = CHR$(77) THEN IF Z.X O 341 THEN Z.X = Z.X + 8: GOTO 3240 

3380 IF Z.A$ = CHR$(75) THEN IF Z.X O 285 THEN Z.X = Z.X - 8: GOTO 3240 

3390 IF Z.A$ = CHR$(72) THEN IF Z.Y O 59 THEN Z.Y - Z.Y - 8: GOTO 3240 

3400 IF Z.A$ = CHR$(80) THEN IF Z.Y O 115 THEN Z.Y = Z.Y + 8: GOTO 3240 

3410 IF Z.A$ O "q" AND Z.A$ O "Q" THEN 3240 ELSE 370 

3420 .-.--- 

3430 ' Error trap 

3440 IF ERR = 53 THEN LOCATE 6,22: PRINT "File not fnd. Press a key to continue" 

ELSE ON ERROR GOTO 0: RESUME 
3450 A$ = INKEY$: IF A$ = "" THEN 3450 ELSE RESUME 370 

3460 ' ========---===========================-================-- 


E33C 
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Code. There, now do you feel better 
about having some difficulty learning 
such a basic sounding language? 

Bug — The term “bug” comes from 
the early days of computing when actual 
insects would get inside the computer 
and cause problems. Today this is 
unlikely to occur, but it isn’t unlikely 
that you will discover programs full of 
bugs, which cause lots of problems and 
are as difficult to eliminate as any 
mosquito. A bug is a programming 
error. 

Benchmark — A term you will often 
hear used when describing the relative 
merits of different computers. A bench¬ 
mark is simply a standard program that 
is run on a number of different ma¬ 
chines (or using a number of different 
pieces of software on the same ma¬ 
chine). The relative speeds can then be 
directly determined by comparing the 
time required to execute (see execute) in 
each environment. This often leads to 
problems because the standard bench¬ 
marks may bear little relationship to the 
work you actually want to do, and it 
often turns out that the “fastest” ma¬ 
chine (software) according to the bench¬ 
mark tests is not the fastest in actual 
usage. Still, it is often all we have. 

CAD/CAM — CAD stands for 
Computer-Aided Drafting (Drawing) 
and refers to software designed to let 
you draw patterns on the computer 
screen and use the computer to assist in 
editing your work. CAM is Computer- 
Aided Manufacturing and indicates 
actual physical control of some ma¬ 
chine^) by the computer (the computer 
and controlled machine together are an 
industrial robot). 

Clock Speed — All computers use 
some sort of a clock to control the 
activities of the various memory, logic 
and switching functions that make up 
computing. Just as an electric clock is 
controlled by the steady 60-cycle-per- 
second house current, everything inside 
a computer is synchronized by its clock 
chip. In some cases, you can change this 
clock speed and thereby speed up the 
computer’s operation. When compar¬ 
ing clock speeds of various computers 
the numbers aren’t all that helpful; the 
actual throughput (see throughput) of 
your work depends on many other 
factors relating to the efficiency of your 
software and hardware. 

Compatible — This can mean any¬ 
thing from virtually identical in every 
way to vaguely similar depending on 
what sort of compatibility you are 
talking about. For example, an ap- 
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Ido You Want A Real Warranty. . . 

|or will you settle for a vague promise? 

S ince 1977, we have operated a Radio Shack Authorized Sales Center (ASC). in the city 
of Grapevine. Texas. This will be significant for you only if (a) you want a warranty 
[which you can exercise easily, if necessary and (b) the reassurance of our long term stability 
land business ethics. 

■When you buy a Tandy/Radio Shack product from us the Tandy/Radio Shack Warranty will 
■accompany it and the warranty and service will be available to you, anywhere in the U.S. 

I We will not install any foreign parts which might, and probably will, have an adverse affect 
■upon your warranty. We will assist you in obtaining local support, should you experience 
■difficulty, and will make an offer to buy-our-product-back* (hardware) if it dissatisfies you, 
Iwithin 30 days. 

I “We ship fast,” has always been our motto and if anyone is offering you a lower price, we 
I suggest you ask about the foreign parts (and warranty) before closing the deal. We will 
■ ‘‘NOT meet-or-beaf ’ a lower price so you can be sure you have our best quote the first time 
land our toll-free phone lines (outside Texas) make the quote easy for you to get, from 9 a.m.- 
|5 p.m. central time. Monday thru Friday. (*For a small handling charge) 


TOLL FREE 1-800-433-SALE 


326 Main St. Grapevine, Texas 76051 


TEXAS BUYERS ADD 5%% SALES TAX 


pliance is compatible with a wall socket 
if the plug fits and it operates correctly. 

It is still compatible if it has a new 
polarized plug but won’t go into the old 
wall socket — it will work if you make 
a small change to the plug, i.e., it uses 
110 volts and 60 cycle current. It will be 
incompatible if it has a totally different 
kind of plug and won’t work on house 
current even if you change plugs. 

Compiler/Interpreter — Terms that 
describe the way a language operates 
(you must usually buy a language separ¬ 
ately to talk to the computer). If you 
have an interpreter, a program you 
write is interpreted one line at a time 
into another language (machine lan¬ 
guage) and stored until the entire pro¬ 
gram is translated. The computer then 
executes the program. 

In a compiled language, the program 
is compiled one time (after all the bugs 
are corrected) and the resulting machine 
language is stored. Any time after that 
you just run the compiled version di¬ 
rectly, saving the program you wrote 
(called the source code). A language is 
either interpreted or it needs a compiler. 
BASIC can be either, but the version that 
comes with most computers is inter¬ 
preted. 

The reason you might want an inter¬ 
preter is that for short programs it is 
quite fast enough, and you don’t have 
to wait for a new program to “compile,” 
which can take awhile. An interpreter is 
by far the best choice if you write many 
short programs and make lots of 
changes to them. 

Controller — (disk, mouse, etc.) The 
part that handles the transfer of data 
between the computer and the device. A 
disk drive by itself will do nothing until 
connected to a controller; the same goes 
for a mouse and other devices. 

Disk Drive (bare) — A bare disk 
drive comes without a case and often 
without a power supply, so it is not a 
great bargain unless you know how to 
put all the parts together. 

Copy-protected — The dreaded de¬ 
scription of a piece of software that 
means you can’t make a backup copy 
for use in the event the original program 
fails to work due to a problem with the 
disk. There is usually a way to get 
another copy from the manufacturer, 
but this is sometimes complicated and 
takes time. Some programs are semi- 
protected (my term) in that you can 
copy a working copy onto a hard disk, 
but then the original no longer works. 
This is only a marginal improvement 
because you need to know you are going 
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to have trouble with the hard disk in 

order to copy the program back onto 
the original disk, thus making it “good” 
again. 

Disk zap — A utility (see utility) that 
is helpful in recovering the data from a 
damaged or worn disk. “Down” is when 
the computer won’t work. “Up” means 
the system is working. 

Expansion board — A printed circuit 
board that fits into slots on the compu¬ 
ter. These expansion boards slide into 
the back of a Tandy 2000, and in some 
other computers fit into slots internally. 
For these you must open the case of the 
computer to install new boards, but this 
is a simple procedure and normally does 
not require the computer to be taken to 
a dealer. 

Expansion Memory — Memory that 
is added to what originally came with 
the computer, either on the mother 
board (see mother board) or an expan¬ 
sion board. 

Socketed 0-256K(512K) — (referring 
to an expansion memory board) This 
means there are empty sockets installed 
on the expansion board, and you can 
either install your own chips at a later 
time or order it with up to the full listed 
amount already installed. 

Execute — 1) Perform or do, as in the 
program executed (run). 2) What you 
(or your spouse) sometimes want to do 
to the person who introduced you to 
computers. 

Floating Point — A number that has 
a decimal point in it rather than an 
integer (1, 2, 3, 56, etc.). 

Freeware — A concept for marketing 
software that could be the answer to 
your prayers. Freeware is easily availa¬ 
ble and copies can be made for friends, 
but you are obligated to make a contri¬ 
bution to the author if you find the 
program useful. Otherwise, you are 
requested to erase it from your system. 
Freeware is simply the honor system 
applied to software sales. 

Public domain — Actually is free. 
Software in the public domain has been 
donated by the author-owner to the 
public and is free for all to use, but not 
to sell as their own. 

Hard disk — This is like a bunch of 
floppy disks glued together, or a small 
record. It is sealed in a container and 
because it is more rigid, the tolerances 
it operates under are more accurate, so 
more information can be stored on it 
and it can operate at a much faster rate. 

Disk cartridge — A kind of hard disk 
that can be removed, allowing you to 
use one drive and have many cartridges, 


sort of like floppy disks. 

Tape cartridge — A special device 
that is used to back up or make copies 
of hard disk files. It uses special tapes 
and is not suitable for using in place of 
a hard disk for daily use. 

Internal/external disk drive — A 
description of whether the unit is in¬ 
stalled in the computer case or is a 
stand-alone unit that can be moved 
from one computer to another easily if 
desired. 

Interface — A term meaning “con¬ 
nection.” It is used to indicate both the 
method of connection (parallel/serial, 
for example) and the actual physical 
device or connector (plug). 

Mean time between failures (MTBF) 
— A standard way of comparing com¬ 
ponents and refers to the average length 
of operating time between breakdowns. 

Mean time to repair (MTTR) — The 
measure of how long something usually 
takes to repair and, along with MTBF, 
is an important consideration in pur¬ 
chasing equipment. If you use a compu¬ 
ter for fun, these are less important than 
price, but if you use a computer to help 
earn a living, reliability becomes very 
important. 

Mother board — The large circuit 
board in a computer that really makes 
it work, as opposed to the expansion 
boards that offer a choice of options as 
to how you want the computer modi¬ 
fied. 

Modem/modem board — A modem 
is the device that translates the compu¬ 
ter’s signals over telephone lines to 
another computer that has the same 
kind of modem to translate the signals 
back to computer-usable form (see 
protocol). 

A modem board is a modem mounted 
on a card that is user-installable in one 
of the slots inside the computer. This 
board usually fits in a “short” slot that 
isn’t usable for most other expansion 
boards. 

An external modem requires a cable 
to connect it to the RS-232 serial port 
on the computer, but can also be used 
with almost any other computer. If you 
don’t have an RS-232 connector you 
need to buy an expansion board con¬ 
taining one, but this board may also 
have a number of other functions (see 
multifunction board). 

Protocol — The method of translat¬ 
ing computer signals into telephone- 
compatible signals. There are several 
different protocols, and your modem 
must operate on the same kind as the 
one at the remote computer. 


Baud — 0-300, 1200 and 2400 are the 
most common Bauds, or speeds, mo¬ 
dems normally use to interchange data. 
The higher the number, the faster the 
transfer, but higher speeds require 
better phone connections. 

Acoustic/direct connect — An 
acoustic modem connects directly to a 
standard telephone handset and, there¬ 
fore, works with a pay phone or a hotel 
phone, but it is more susceptible to 
interference from local noise. A direct 
connect modem attaches directly to the 
standard “modular” clip connector 
found on many phones and is usually 
more reliable. 

Monitor/RGB/composite — A 

monitor is like a TV except it gives a 
clearer picture because it doesn’t use the 
radio frequency signals needed to trans¬ 
mit TV. These same RF signals are 
generated by the computer, often caus¬ 
ing interference with a normal TV. The 
monitor can also have more lines than 
a TV. 

An RGB monitor needs a controller 
(driver) in the computer that sends a 
separate signal to each of the three 
“guns”(red, green and blue) found in all 
color TVs and monitors. A composite 
monitor needs a signal that combines all 
three signals. The two monitors are not 
compatible and cannot be inter¬ 
changed. 

Multifunction board — An accessory 
board that goes in the computer’s ex¬ 
pansion slot and has more than one 
added function, such as more memory, 
real-time clock and RAM disk (see 
RAM disk). 

Multiprogramming/multi-user/mul- 
tiprocessing — These terms mean sev¬ 
eral functions are being performed 
simultaneously on the computer. For 
instance, when using a word processing 
program you can print out a file while 
editing another. 

Object code compatible — When one 
computer has a processor that is object 
code compatible with another compu¬ 
ter, most programs that operate on one 
will run on the other as well. 

Superset/subset (of instructions) — 
A computer (processor chip) uses all the 
same instructions as the original chip, 
with some new instructions added. The 
one with the larger set of instructions is 
said to have a superset and the other a 
subset of instructions, in relation to 
each other. The one with a superset runs 
all programs that work on the subset, 
but not vice versa. The instructions 
referred to are usually at the machine 
language level. 


28 pcm 


June 1986 










Party (first, second and third) — The 

first party is the computer manufacturer 
(in our case, Tandy), the third party is 
someone who makes items for use with 
first party equipment, and you are the 
party of the second part, the customer 
of either of the other two parties. 

PC/mainframe — A PC is a personal 
computer. A PC is small and inexpen¬ 
sive enough for a person or small busi¬ 
ness to use without a special operator. 
A mainframe computer is larger, more 
expensive and so complicated that it 
needs a special operator to run it. 

Print spooler — A software (or hard¬ 
ware and software) device that sets aside 
a portion of main memory to hold 
output going to the printer, thus permit¬ 
ting the computer to go on to other 
tasks while the work is being printed. 
Or, it is an expansion board that con¬ 
tains both the above mentioned soft¬ 
ware and some actual physical memory 
chips. 

Parallel/serial — Refers to whether 
the data being sent between devices is 
sent all eight bits at the same time along 
a lot of wires (parallel) or one bit at a 
time along fewer wires (serial). You need 
an adapter to change from one to the 
other, so a serial printer won’t work 
directly from a parallel printer port just 
by changing wires around. 

RS-232/Centronics — RS-232 is a 
fairly standard method of sending serial 
data; centronics is the name often 
applied to both a physical connector 
and a method of sending parallel data. 

RAM disk —Software that partitions 
a portion of main memory and makes 


the computer think it is a very fast disk. 
It is used like any other disk except it 
doesn’t keep anything after power is 
turned off. A RAM disk is also a soft¬ 
ware/hardware combination that 
comes on an expansion board. 

Real-time clock — It has nothing to 
do with the speed of the computer. A 
real-time clock is a piece of hardware 
which is almost always on a board with 
other items, that performs the odious 
task of setting the computer’s time and 
date when the computer is turned on. It 
has a small battery that keeps time while 
the main current is off. If you are getting 
a multifunction board with this clock it 
certainly is a useful addition. 

Throughput — What comes out of 
the computer. For example, the number 
of letters written and printed out in a 
particular period of time on a word 
processor is its throughput. 

Utility — A program whose purpose 
is to assist in using the computer. In 
other words, a utility is intended to 
make the computer easier to use. 

UNIX/Xenix/OS-9 — These are 
similar operating systems (different 
from MS-DOS) that allow several users 
to hook up terminals to a computer and 
operate more than one program at the 
same time. Third parties sell add-on 
expansion cards that contain a different 
CPU (Central Processing Unit) family, 
the 68000 family, as opposed to our 
8088 or 80286 CPUs. This new chip is 
well-suited to UNIX, etc., and permits 
you to greatly expand the capabilities of 
your computer, making it similar to the 
Tandy 6000. 


Ware (hard, soft, firm and live) — 

Hardware is something physical like 
your computer or printer. Software 
comes on a disk or printed on paper. 
Firmware is information or a program 
that is fixed in a computer chip, such as 
some BASICS, and isn’t accessible for the 
user to change. Liveware is you, the 
user. 

8088 — The chip (manufactured by 
Intel) that forms the thinking heart of 
your Tandy 1000 and 1200. 

8087 — The Intel co-processor chip 
specifically designed to do the math 
processing for the 8088. If your pro¬ 
grams can take advantage of it, your 
math computations take much less 
time. The 8087 can be added to the 1000 
and 1200, but your software must be 
capable of using it to get any advantage 
from this approximately $200 micro¬ 
chip. 

80186 — The CPU used in the Tandy 
2000 . 

80286 — The CPU chip installed in 
the Tandv 3000. 

4164 — The common part number of 
memory chips that are used in the 1000 
and 1200. The 4164 chip-has one bank 
of 64K memory. 

41256 — A one by 256K memory chip 
used on some computers. It can be 
installed in recent 1200s to replace the 
64K chips, thus upgrading memory. 


I hope this glossary proves helpful 
and gives you just one more reason to 
keep your back issues of PCM for¬ 
ever! H*E3 
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• Product Information 

(for convention booths) 
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The Integrated Desk 


1000/1200/2000/3000 


A primer on DeskMate’s Text editor 


A Look at Text 


By Bobby Ballard 


S ometimes it’s easy to forget where 
you’ve been. This is especially 
true when you get involved with 
computers. At first, everything seems 
complicated or strange. Soon, however, 
you feel like it’s all quite simple and 
using the computer becomes second 
nature. 

I was reminded of this in a letter from 
a reader who was having problems with 
some of the “simple” features of Desk- 
Mate, Notice I put the word simple in 
quotes. That’s because if you are new to 
anything it can seem complicated. This 
month I want to concentrate on a few 
of the basics found in the Text section 
of DeskMate, Even if you’ve been using 
DeskMate a long time I think you might 
find some helpful information, and it’s 
a good chance to refresh your memory 
on some of the more obscure features 
found in Text. 

Let’s face it, the manuals that come 
with DeskMate leave a lot to be desired. 
If you’re used to using a computer, you 
may have found the manuals adequate. 
If you look at them from the point of 


Bobby Ballard is a free-lance writer and 
the owner of a computer software and 
consulting firm. He also operates a BBS 
in Brooklyn. Bobby can be contacted at 
1207 Eighth Avenue, Apt. 4R, Brook¬ 
lyn , NY 11215. 


view of a first-time computer owner, the 
view looks bleak. There is a lack of 
information about the machine in 
general and some of the machine fea¬ 
tures that can cause problems. 

Though the manuals may be insuffi¬ 
cient, you should read both and follow 
the tutorials through to the end, includ¬ 
ing successfully completing the inde¬ 
pendent exercises — especially before 
putting a particular section to serious 
work. I get letters with questions whose 
subject matter is completely covered in 
the manuals. Don’t let the title of the 
second manual, DeskMate: A Refer¬ 
ence Manual , fool you into not reading 
it. Sure, it’s a reference manual, but it 
is written for immediate consumption. 
You might be surprised at what you find 
there. 

The Printer Connection 

I might have mentioned this before, 
but I think it bears repeating. Make sure 
the cable from your printer to the 
computer is connected correctly. The 
correct way on a Tandy 1000 is with the 
cable exiting the connector from the 
bottom when connected to the compu¬ 
ter. I think this is probably the most 
often encountered problem for first¬ 
time owners. 

By the way, the connector to the 
printer only connects one way. It is 
impossible to incorrectly connect the 


printer end of the cable without using 
force. I wonder why Tandy didn’t use f 
the same idea on both ends? 

The Keyboard Influence 

Another “problem” that occurs can 
be blamed on the design of the key¬ 
board. It is not a problem as long as you 
know about it. The keyboards on most 
computers are designed to repeat the 
keystroke if the key is held down longer 
than a certain delay time, usually 
around 1.5 seconds, set by the operating 
system. In addition, the keyboard has a 
keystroke buffer that holds your key¬ 
strokes until the system can process 
them. If you don’t know this, you can 
be in for some confounding experienc¬ 
es. 

The two above features of the key¬ 
board are active while in MS-DOS and 
in most other application programs. 
Some software allows you to turn off or 
adjust the keyboard delay or buffer or 
both. DeskMate does not allow for this 
and I really think it’s not needed as long 
as you know about the keyboard fea¬ 
tures and how they affect the behavior 
of your software. 

Both of these features can make your 
software act as if it just went off the deep 
end, when, in fact, it’s just processing 
the keys in the buffer. When this 
happens, pressing a key only com¬ 
pounds the problem instead of solving 
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it — especially if you hold the key down, 
unsuspecting of the keyboard repeat 
feature. 

At other times you may fly past a 
prompt for important information. 
Once again, this is caused by the pro¬ 
gram processing stored keystrokes. You 
could be inadvertently entering unnec¬ 
essary keystrokes by pressing, for exam¬ 
ple, the ENTER key after a response to 
a prompt that doesn’t require you to do 
so. 

You may think this is silly, but I’ve 
seen it time and time again: a new user 
asking why a program whizzes by a 
certain prompt without a chance to 
enter a response. The best way to solve 
this problem is to never type more 
keystrokes than necessary. When an¬ 
swering prompts, try using just one 
keystroke without pressing ENTER ex¬ 
cept when you are entering a filename 
or other obvious string data. 

This might seem obvious or trivial at 
first, but the point was driven home 
recently when I sat down at a friend’s 
AT clone and had a devil of time using 
his CAD program until he told me he 
had recently “boosted” his cursor speed 
and repeat delay. After that, I made a 
quick adjustment to the information 
and my problems cleared up completely. 
I realized how easy it is to overlook the 
simple things after having been at it for 
a few years. With that premise, I want 
to tour each of the sections of Desk- 
Mate, starting with Text, keeping in 
mind the less obvious and “simple.” 

The Tour 

Let’s get started with the tour. We’ll 
start with the first menu selection and 
move across the screen. The first two 
selections, Find and Substitute, are 
closely related. Find locates all occur¬ 
rences of a particular string, while 
Substitute finds and replaces one string 
of text with a new string of text. 

The Find function is not “case sensi¬ 
tive.” This means it does not care 
whether the text is upper- or lowercase 
to find a match. The following strings 
are equal in a Find operation, Fast, 
fast, FfiST and FaSt. If it were case 
sensitive, only Fast would match Fast 
and not fast or any other combination 
of upper- and lowercase. 

When using Substitute, DeskMate 
begins to search for each occurrence of 
the search string. When it finds a match, 
DeskMate asks if you would like to 
make the switch or not. Answer with Y 
to replace with the new text and N to 
continue searching the next occurrence 
of the search string. 


The next function works like a toggle 
switch. When in one mode it switches 
to the other when invoked by the ap¬ 
propriate function key, in this case, F3. 
This toggling function switches between 
inserting and overstriking text. It is a 
pretty straightforward feature but can 
still be confusing as you will see. 

Even to the seasoned computer user, 
this next example could be confusing. 
The menu at the bottom of the Text 
screen has a pair of choices for function 
key F3 that can be misleading. In one 
mode, F3 has “Add” below it and, when 
pressed to enter the other mode, has the 
selection “Replace” below it. Since it 
immediately follows the Find and Sub¬ 
stitute functions, isn’t it logical that 
Replace is related to finding and substi¬ 
tuting? Well, no, not this time. 

This time it takes the place of the 
INSERT key already found on the key¬ 
board. So Add really means Insert, and 


“The Merge function is 
very easy to understand 
and wouldn’t normally 
give you a pause, 
except for an error in 
either the manual or 
program.” 


Replace really means Overstrike in 
traditional word processing terms. I’m 
sure this is to keep compatibility of 
DeskMate versions among different 
machines more manageable — espe¬ 
cially considering that some machines, 
even Tandy models, do not have an 
INSERT key. 

The next function. Format, is a mis¬ 
leading title for a single and simple 
function. This is really the line width 
setting. If it also allowed you to set 
margins and other crucial variables, it 
would be properly named. However, 
lacking these features it’s best to re¬ 
member this function really only han¬ 
dles line width. 

Don’t miss this point, though, when 
it comes to the Format or line width 
function. It does affect the margins of 
your text, but you cannot directly set 
the margins with Format. For example, 
a line width of 70 leaves margins of five 
on each side of the document. A line 


width of 60 leaves margins of 10 on each 
side. However, you cannot have a line 
width of 60 and margins of 15 and five, 
which still totals 80, because the Format 
command only supports line width and 
it automatically centers the text on the 
line. 

The Merge function is very easy to 
understand and wouldn’t normally give 
you a pause, except for an error in either 
the manual or program. (I suspect the 
program is the one in error.) The func¬ 
tion works correctly but the prompt for 
the file to merge does not say Enter 
merge filename: as stated in the 
reference manual. Instead, you get a 
prompt exactly like the one found in the 
Save feature. It says Enter save file¬ 
name: when, in fact, it wants the name 
of the file to merge into your document. 
Remember to position the cursor where 
you wish the merged text to begin 
appearing before selecting this function. 
Enter a blank filename to abort the 
Merge operation. 

The function found at F6 is for saving 
your document without exiting the Text 
section. Use this feature often, particu¬ 
larly when you are working on impor¬ 
tant data. This allows you to keep a 
copy of your work on disk, as you 
compose, without leaving the Text 
section of DeskMate. Also remember 
that when exiting the Text section using 
F12, your latest changes are automati¬ 
cally saved unless you use the SHIFT key 
in combination with F12. 

This can be another confusing point 
for the first-time owner. When using F12 
to exit Text, the program automatically 
saves the document using the 
same file given as when it was created. 
That’s easy enough. But if you don’t 
wish to save the changes, what do you 
do? Use SHIFT-FI2 and answer the next 
prompt with a Y. The prompt is confus¬ 
ing because it asks if you want to 
Cancel Edit (Y/N). An answer of N 
saves the file with the latest changes 
included. 

The next four features found in the 
main menu of Text are all related to 
each other. In this case, Select is espe¬ 
cially important to the next three com¬ 
mands. Select does exactly as it says it 
will, it selects text for performing other 
operations. When you Select text, it is 
highlighted to help you easily see the 
block of text you will be using. One 
point important to note about Select 
concerns the rapid cursor movement 
commands. If you remember that CTRL 
and the arrow keys along with SHIFT 
and the arrow keys work in Select just 
as they do in normal edit mode, you’re 
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covered. If you are unfamiliar with the 
rapid cursor movement capabilities of 
DeskMate , refer to your manuals for 
details. You will save yourself hours 
with this knowledge. 

Once you have selected the text, you 
can do several things with it, one of 
which is copy it to another disk file or 
buffer in memory. Copy really works in 
two different ways, which can be con¬ 
fusing to the first-time user. Come to 
think of it, it was pretty confusing to me 
at first. 

Remember that Copy can deal with 
text that has been Selected and Text 
that is in a file on diskette. If you have 
previously Selected text, pressing F8 
seemingly causes nothing to happen. In 
reality, the text just selected is copied to 
an area of the computer’s memory to be 
Inserted (more on this later) elsewhere 
into your text. This includes moving 
data across files and across applications 
— thus the integrated nature of Desk- 
Mate. 

If you have not previously selected 
any text and you press F8, you are 
greeted with the prompt From : To: and 
you can move diskette files in and out 
of the buffer described above. If you 
have previously selected text and wish 


to call up the alternate Copy function, 
press F8 again. This calls up the above 
prompt to allow for diskette File input 
and output. 

When you first see the From: To: 
prompt, your cursor will be flashing at 
the From: prompt waiting for a file¬ 
name. At this point, you may enter a 
filename and press ENTER or you may 
press ENTER, thus moving the cursor 
beside the To: prompt. 

Now that you know exactly how the 
Copy function works, you can achieve 
some pretty sophisticated file merges 
using DeskMate. This is one of Desk- 
Mate's strongest points. 

The Delete command also works in 
two different fashions. If you have 
previously selected text (F7), the Delete 
function erases the selected text. If no 
text has been selected, Delete just erases 
the character under the cursor. This is 
exactly the same as the DELETE key on 
many keyboards. 

The last function listed is Insert. 
Insert works somewhat like Merge but 
involves the contents of the copy buffer 
regardless of the source of the buffer. If 
you copy a file from the diskette into the 
copy buffer and press FIO, that file 
would be inserted into the current 


document beginning exactly where the 
cursor is located. But, with Insert you 
can also select text in the current doc¬ 
ument, copy it to the buffer, move the 
cursor and insert the same text at a 
different location in the same docu¬ 
ment. This is a handy feature and it 
works rather fast, even with large files. 
The only time I’ve found Text to slow 
down is with scrolling long documents; 
other functions work very fast. 

Insert is the last command listed on 
the screen, but it’s not the last function 
available. Another function not listed is 
Print. On the Tandy 1000 and 2000 you 
press the print key to print a docu¬ 
ment. The Tandy 1200 version uses the 
PRT SCRN key. Check the manual for 
your version of DeskMate and how the 
Print function works. Just remember to 
set your printer parameters using the 
ALT-F6 first. 

I will cover the alternate functions of 
DeskMate in next month’s issue. If you 
have any questions or comments on this 
article, don’t hesitate to write or contact 
me on Delphi in the MS-DOS SIG. You 
may also write to the address listed. 
Please enclose a self-addressed, 
stamped envelope if you would like a 
reply to your letter. 


Plot Against Your Competition! 

with QuickPlot® 



We're the people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits—not 
spend them. 

CWTIFICATION 

SCAL 


Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 


STILL ONLY 

$49.oo 

We pay shipping 
on pre-paid orders 


Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 


Now you have a friend in the software business. 

Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 228-1440 
Cal I or write to place your order or send for tree 
information. 
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Feature 


1000 / 1200 / 2000/3000 


PC Phone Booth 

By Leonard Hyre 


N ot long ago, I sat down to create 
a simple phone number listing 
program for my own use. Then 
I figured, why not add a mailing list 
feature? With these two items accom¬ 
plished, it wasn’t long before a graphics 



title screen complete with a phone 
booth and ringing telephone was added. 

What’s a PC Phone Booth , anyway? 
It’s several things bundled together in a 
single package: a quick reference for 
phone numbers, a list of customers, 
Christmas card lists, mailing labels, or 
whatever kind of “list” you need. You 
can call up special “sublists” and have 
them printed out. For example, for a list 
of all “Widget” buying customers and 
their phone numbers, just enter Widget 
for the text string and phone list. At 
Christmas, just enter Christmas and 
choose mail labels. Every person on the 
list with “Christmas” in the remarks is 
printed out on a ready-to-go mailing 
label. Additionally, it is a learning 
experience for would-be programmers, 
with lessons in direct file access, graph¬ 
ics and general string manipulation. 

PC Phone Booth utilizes a simple 
highlighted command line to move 
between functions. The commands 
include Add Record, Edit Record, List 
Records, Print-Copy Records, Create a 
File and Kill a File. The space bar is 
used to move the highlighted choice bar 
from one selection to another. Pressing 
the ENTER key chooses the highlighted 
selection for further action. You can put 
everyone into one file or create separate 
specialty files. 

PC Phone Booth's handiest feature is 
the ability to search for records using 
any string of text you choose (e.g., 
Christmas, 21613, Hyre, Big Spender, 
etc). For the sake of reference, should 
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you move files from one disk to another, 
all PC Phone Booth data files automat¬ 
ically use the extension . FON. 

The only part of the program that 
may need configuring is the mailing list 
printout, which may require a different 
tab offset or number of line feeds 
following a label printout. This is 
because of the many sizes and shapes of 
labels and the different printer setups. 

Direct Access Files are much like 
well-organized filing drawers, with each 
record having its own place for storage 
and the whole drawer having a handy 
reference system for finding particular 
pieces of information. If you follow 
through the listing, thinking of each 
portion of the program as a separate 
tool to perform one task needed by the 
program, you will be surprised at how 
it actually does make sense. 

Three sections of the program are 
devoted to actually working on the file 
records themselves. These are Create, 
Add and Edit. All of them follow this 
simple rule: If you open a file, don’t 
forget to close it! This is a cardinal rule 
for file creation and manipulation. 

In the Create a File subroutine (lines 
270-530), you can see that once a file is 
open, you cannot get out of the subrou¬ 
tine without encountering close. You 
are asked to provide a filename, which 
must be eight or less characters. No 
extension is allowed since the program 
automatically assigns the .FON exten¬ 
sion. 

The file structure is defined by Line 
370, which tells the computer that each 
record in the file needs 30 “spaces” 
allocated as fi$, 26 as B$, etc. Since all 
of our data is entered as string data to 
begin with, no conversion from numeric 
to string commands is required. 

Once a new file has been created, you 
can continue entering information into 
it as long as you like. Once it is closed 
the first time, the Add selection is used 
to enter additional records. The Edit 
function works in a similar manner, 
allowing you to rewrite any one or more 
of the individual strings in a record, 
then rewrite that entire record accord¬ 
ingly. 

Kill a File is the way to get rid of an 
unwanted file. This routine is found at 
lines 1400-1500 and is not at all compli¬ 
cated. The only thing to be careful 
about here is that you must be sure of 
your choice and the consequences of the 
same. As a safety measure, the program 
double-checks before performing the 
task of eliminating a file. 

The List and Print selections share 
many common features since both 
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In addition to a price you can afford more easily: 
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* For a small restocking fee. 
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377 Plaza 

Granbury, Texas 76048 


34 pcm 


June 1986 














































shipping, usually next business day. 8 A same-day “rush service” for late satisfaction 
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require that the program locate and 
provide the user with specific files as 
required. Using the List section as an 
example, the user is prompted to select 
files by “browse” (look at all records 
starting at ‘T), by specific number 
(select number of file record to look at) 
or to select by specific “text.” 

The third method gives PC Phone 
Booth the versatility to be useful and 
friendly to the user. Suppose you did 
want a list of all Widget buyers. By 
selecting search by text, the program 
goes through each record searching for 
an occurrence of Widget. Of course, if 
one of the people in the file is named 
George Widget, his name will come up 
also, so be specific. Just as easily, you 
can list out people with a particular ZIP 
code, phone number exchange, etc. 

Make good use of the remarks section 
of each record so the program works 
better for you. Would-be programmers 
might like to take a look at the use of 
the INSTR command in lines 1170-1240. 
When you elect to print out records for 
phone lists, mailing labels or whatever, 
similar routines to those for screen lists 
are used. 

In addition to the selection of specific 
records, options are given for four types 
of listings, including complete record 
with remarks, name, address and phone 
number, the name and phone number 
only, or a mailing label printout. Since 
names are normally entered last name 
first for records, the program must 
reverse them for mailing labels. The 
small routine in lines 2820-2880 per¬ 
forms this task. 

The fun part of writing the program 
was drawing the phone booth and 
making the phone ring properly. My 
family was beginning to lose patience at 
my constantly dragging them in to hear 
what the latest “phone ring” sounded 
like. When I had it sounding just right 
on the 1000, I thought I had it made. 
Then a computing friend loaded it into 
his 3000 and the ring sounded different. 
We finally came up with a ring that 
sounds “just about” right on either. 

PC Phone Booth should run fine on 
any configuration of the 1000. It also 
works on the 3000, which indicates 
across the board MS-DOS compatibil¬ 
ity among all the Tandy MS-DOS series 
and compatibles (like IBM). Since the 
2000 supports these same screens, no 
real problems should crop up there, 
either. 

If you have difficulty in getting the 
program to work correctly, feel free to 
contact me by mail or phone. My ad¬ 
dress is P.O. Box 403, Cambridge, MD 
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EM with 512K @ $149 = _ 
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Print spooler @ $ 49 = _ 
Multifunction Board @ $249 = _ 
10 MB Hard Disk @ $529 = . 
20 MB Hard Disk @ $599 = . 


Subtotal_ 

CA residents 

add 7% tax_ 

Shipping_ 

Amount 
Enclosed_ 


$6.00 
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ADDRESS _ 
CITY _ 
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ZIP 


TELEPHONE( 
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A.T.D. 1287 Lawrence Station Rd., Sunnyvale, CA 94089 


ZUCKERBOARD PRODUCTS FOR THE TANDY 1000 

Multifunction Board..$249 

Includes DMA controller chip, 512K memory, Clock/calendar with 20 year battery, 

Serial port, and Ramdisk/Print spooler software. 

Internal Hard Disk 10 Mbyte.$529 

20 Mbyte.$599 

Half-height. Includes controller and cables. Mounts internally, above floppy drive A. 
Requires system with DMA already installed. 

CALL TOLL-FREE TO ORDER 
CA (800) 233-6874 
(800) 222-4920 

Dr. Dr. Zucker 

It's another _ 

MCKISRB04RD 

ffB 



1287 Lawrence Station Road • Sunnyvale, CA 94089 • (408)734-4631 

ZUCKERBOARD is a Trademark of Advanced Transducer Devices, Inc 
TANDY 1000 is a Trademark of Radio Shack, a Division of Tandy Corporation. 

All prices subject to change without notice due to fluctuations in the chip market. 













































21613; the phone number is (301) 228- 
0064 (from 5 - 11:00 p.m. EST). PC 
Phone Booth is available on PCM ON 
DISK or through the MS-DOS SIG on 
Delphi. Should you have a question or 
comment concerning the program, you 
can leave a message to MUNCH on the 
MS-DOS SIG any weekend. □ 


The listing: 


30 ** PHONE BOOTH by L. Hyre * 


’* (C) 1986 * 

'* * 
' ******icMci< VrA-Vo'r 


80 


FOR TANDY HS-DOS COMPUTERS 


100 


110 


120 


130 


140 


[ Written On T1000...May Be Slight Differences 
for T1200, T2000,T3000 * ] 

*** GO DRAW PHONE BOOTH AND RING THE PHONE *** 

1 GOSUB 3110 
* 

*** SET UP MAIN DISPLAY AREA INCLUDING MENU *** 

160 KEY OFF:WIDTH 80:SCREEN 0,1:COLOR 2,0:CLS 
170 KEY(1) ON:ON KEY(l) GOSUB 3380 

180 TP$=CHR$(201)+STRING$(78,205)+CHR$(187):BT$=CHR$(200)+STRING$(78,205)+CHR$(1 
88):SD$=CHR$(186)+SPACE$(78)+CHR$(186) 

190 PRINT TP$;SD$;BT$:COLOR 12:LOCATE 2,20,0:PRINT"The PHONE-BOOTH 
.by L. Hyre 

200 PRINT:COLOR 14:PRINT TP$;SD$;BT$ 

210 LOCATE 5,3:COLOR 3:PRINT "Add Edit List (Selective) Print Copy Crea 

te (New) Kill (Existing) " .-COLOR 15,4: LOCATE 5,3 : PRINT "Add" : COLOR 7,0 
220 PRINT:PRINT TP$;:FOR TM=1 TO 14:PRINT SD$;:NEXT:PRINT BT$:COLOR 4:LOCATE 24, 
1:PRINT STRING$(80,220);:LOCATE 25,62:COLOR 4,15:PRINT"[ F1=QUIT ]"; 

230 GOTO 2920 
240 1 

250 ***** CREATE A 'NEW' PHONE FILE 
260 ' 

270 RC%=1:LOCATE 23,1:COLOR ,0:PRINT SPACE$(80):LOCATE 23,1:COLOR 14:PRINT"CREAT 
E - This Function CREATES New FileCOLOR 4:PRINT" AVOID Duplicate File Name 
s m" 

280 1 

290 COLOR 15,0:LOCATE 8,4:PRINT "Name of FILE to create [No Ext]";:INPUT FI$ 

300 FOR EX=1 TO LEN(FI$):IF MID$(FI$,EX,1)=".” THEN FI$=LEFT$(FI$,EX-1):GOTO 310 
:ELSE NEXT EX 

310 IF LEN(FI$) >8 THEN FI$=LEFT$(FI$,8) 

320 FI$=FI$+".fon":LOCATE 8,4:PRINT SPACE$(50):LOCATE 8,4:COLOR 3:PRINT"Creatine 
File called ";FI$ 

330 OPEN "R",1,FI$,128 
340 1 

350 ' *** DEFINE THE LENGTH OF EACH FIELD *** 

360 ' 

370 FIELD 1,30 AS A$,26 AS B$,28 AS C$,12 AS D$,32 AS E$ 

380 LOCATE 9,4:PRINT "Next Record #";RC% 

390 IF RC%>1 THEN LOCATE 21,4:COLOR 14:INPUT"Another [ Y/N ]";AN$:IF AN$="Y" OR 
AN$="y" THEN 400 ELSE 520 

400 LOCATE 10,4:PRINT"Enter NAME (Last Name First)LOCATE 11,9:INPUT NM$ 

410 LOCATE 12,4:PRINT"Enter Street or PO Box AddressLOCATE 13,9:INPUT ST$ 
420 LOCATE 14,4:PRINT"Enter CITY - STATE - & ZIP CODE":LOCATE 15,9:INPUT CT$ 

430 LOCATE 16,9:PRINT"Enter PHONE NumberLOCATE 17,9:INPUT PN$ 

440 LOCATE 18,4:PRINT"Enter REMARKS (32 Space Maximum):":LOCATE 19,9:INPUT RM$ 
450 LSET A$=NM$:LSET B$=ST$:LSET C$=CT$:LSET D$=PN$:LSET E$=RM$ 

460 PUT #1,RC% 

470 FOR WIPE=9 TO 19:LOCATE WIPE.4:PRINT STRING$(40," "):NEXT WIPE 
480 RC%=RC%+1:GOTO 380 
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49? * 

5?? ’*** ALWAYS CLOSE THE FILE ! *** 

51? ' 

52? CLOSE 1 

53? GOSUB 337?-.LOCATE 5,49: COLOR 3 : PRINT M$( 5): LOCATE 5,3: COLOR 15,4: PRINT M$(l) 
-.GOTO 292? 

54? * 

55? ' 

56? '*** LIST a File *** 

57? ' 

58? LOCATE 23,l:COLOR ,?:PRINT SPACE$(8?):LOCATE 23,l:COLOR 2,?:PRINT"Selective 
List of Phone Booth entries...” 

590 LOCATE 8,4:COLOR 3:INPUT"NAME of File To Use [No .ext] ";FI?:IF FI?-"”THEN 8 
30 

600 FOR EX-1 TO LEN(FI?):IF MID$(FI$,EX,1)-"." THEN COLOR 4:LOCATE 9,4:PRINT"ILL 
EGAL Filename!”:SOUND 300,2:FOR P-1 TO 2000:NEXT:LOCATE 8,4:PRINT SPACE?(50):LOC 
ATE 9,4:PRINT SPACE?(50):GOTO 590:ELSE NEXT EX 
610 IF LEN(FI?)>8 THEN FI?=LEFT?(FI?,8) 

620 FI?=FI?+”.FON" 

630 OPEN "R",1,FI?,128 

640 FIELD 1,30 AS A?,26 AS B?,28 AS C?,12 AS D?,32 AS E? 

650 SIZE-128 

660 LOCATE 21,55:COLOR 14:PRINT”Number of Records(L0F(1)/SIZE):IF (LOF(l)/SIZ 
E)=0 THEN LOCATE 10,4:COLOR 4:PRINT"No RECORDS in File by that Name!":FOR P-1 TO 
2000:NEXT:LOCATE 10,4:PRINT SPACE?(50):LOCATE 8,4:PRINT SPACE?(50):CLOSE l:GOTO 
590 

670 RC%=1 
680 GOTO 890 

690 FOR MAX-1 TO (LOF(l)/SIZE) 

700 IF RC% =0 OR RC% > (LOF(l)/SIZE) THEN 820 
710 GET #1,RC% 

720 LOCATE 9,4:PRINT "Record Number: ";RC% 

730 IF VAL(CH?)Ol THEN 790 
740 LOCATE 10,4:PRINT"Name : "A? 

750 LOCATE 11,4:PRINT"Street: ”B? 

760 LOCATE 12,4:PRINT”Cty/St: "C? 

770 LOCATE 13,4:PRINT"Phone : ”D? 

780 LOCATE 14,4:PRINT"Remark: "E? 

790 AK?—INKEY?:IF AK?="”THEN 790 

800 FOR WIPE-10 TO 15:LOCATE WIPE,4:PRINT STRING?(40,” "):NEXT 
810 RC%—RC%+1:NEXT MAX 
820 CLOSE 1 

830 GOSUB 3370:LOCATE 21,55:PRINT SPACE?(23):LOCATE 23,1:PRINT SPACE?(80) 

840 LOCATE 5,16:COLOR 3,0:FRINT M?(3):LOCATE 5,3:COLOR 15,4:PRINT M?(l):GOTO 292 

9 

850 • 

860 ' 

870 '*** MENU FOR SELECTIVE LISTING *** 

880 • 

890 LOCATE 9,4:COLOR 2:PRINT"Select TYPE of LISTING you desire-”:COLOR 15 
900 LOCATE 10,10:PRINT"1> Browse Through File" 

910 LOCATE 11,10:PRINT"2> Specific Record by NUMBER" 

920 LOCATE 12,10:PRINT"3> Search by 'TEXT' Occurrence” 

930 LOCATE 14,4:COLOR 2:PRINT"Press NUMBER of Choice":LOCATE 13,10:PRINT”_ 


940 CHS-INKEY?:IF CH?-""THEN 940 

950 IF VAL(CH?)<1 OR VAL(CH?)>3 THEN SOUND 300,2:GOTO 940 
960 FOR WIPE-9 TO 14:L0CATE WIPE,4:PRINT SPACE?(50):NEXT 
970 ON VAL(CH?) GOTO 690,1010,1160 
980 ' 

990 '*** SEARCH BY NUMBER *** 

1000 • 

1010 LOCATE 21,4:COLOR 13:PRINT"Enter 0 To EXIT To Menu":LOCATE 10,4:COLOR 15,1: 
INPUT"RECORD NUMBER TO VIEW";RC% 

1020 IF RC%=0 THEN CLOSE 1:COLOR ,0:LOCATE 21,4:PRINT SPACE?(40):GOTO 830 
1030 IF RC%> (LOF(l)/SIZE) THEN LOCATE ll,4:COLOR 4,15:PRINT"No Such Record #":F 
OR P-1 TO 2000:NEXT:COLOR ,0:LOCATE 11,4:PRINT SPACE?(50):LOCATE 10,4:PRINT SPAC 
E?(50):GOTO 1010 
1040 GET #1,RC% 

1050 COLOR 2,0:LOCATE 12,4:PRINT"Name : "A? 

1060 LOCATE 13,4:FRINT”Street: "B? 

1070 LOCATE 14„4:PRINT"Cty/St: "C? 

1080 LOCATE 15,4:PRINT"Phone : ”D? 

1090 LOCATE 16,4:PRINT”Remark: ”E? 
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11 99 LOCATE 18,4:COLOR 14:PRINT"Press ANY KEY for another Selection..” 

111)3 AK?-INKEY?:IF AK?-""THEN 1110 

1120 LOCATE 10,4:PRINT SPACE?(24):FOR WIPE-12 TO 18:LOCATE WIPE,4:PRINT SPACE?(5 
0):NEXT WIPE:GOTO 1010 
1130 • 

1140 '*** STRING SEARCH *** 

1150 • 

1160 LOCATE 20,4:PRINT”Hit ’0’ To EXIT to Menu”:LOCATE 21,4:COLOR 13:PRINT "Any 
Other Key To Continue":LOCATE 10,4:COLOR 15,0:INFUT"Enter the Exact TEXT to mate 
h";ST$ 

1170 FOR MAX-1 TO (L0F(1)/SIZE) 

1180 GET #1,RC% 

1190 IF INSTR(A$,ST$) THEN 1250 

1200 IF INSTR(B$,ST$) THEN 1250 
1210 IF INSTR(C$,ST$) THEN 1250 
1220 IF INSTR(D$,ST$) THEN 1250 
1230 IF INSTR(E?,ST?) THEN 1250 
1240 GOTO 1330 

1250 LOCATE 9,4:PRINT"Record Number: ";RC% 

1260 LOCATE 10,4:PRINT"Name : "A$ 

1270 LOCATE 11,4:PRINT"Street: "B? 

1280 LOCATE 12,4:PRINT”Cty/St: "C? 

1290 LOCATE 13,4:PRINT"Phone : "D$ 

1300 LOCATE 14,4:PRINT"Remark: "E$ 

1310 AK?-INKEY?:IF AK$-""THEN 1300 
1320 IF AK$—"0" THEN 1350 

1330 IF RC%-(LOF(l)/SIZE) THEN COLOR 15,4:LOCATE 16,4:PRINT"End of FILE Encounte 
red":SOUND 300,2:FOR P-1 TO 1000:NEXT P:GOTO 1350 
1340 RC%-RC%+1:NEXT MAX 

1350 LOCATE 5,3:COLOR 15,4:PRINT M$(l):LOCATE 5,16:COLOR 3,0:PRINT M$(3):G0SUB 3 
370 

1360 CLOSE 1:GOTO 2900 
1370 ’ 

1380 '*** KILL [Utterly Destroy] A File *** 

1390 • 

1400 LOCATE 23,1:COLOR ,0:PRINT SPACE?(80):LOCATE 23,l:COLOR 13,0:PRINT"KILL - F 
ile Will Be Destroyed! Be CAREFUL!" 

1410 LOCATE 9,4:COLOR 3,0:PRINT”Enter NAME of FILE to be KILLED.":LOCATE 10 

4:INPUT KL? 

1420 FOR EX=1 TO LEN(KL?):IF MID?(KL?,EX,1)-"."THEN 1430:ELSE NEXT EX:GOTO 1440 

1430 LOCATE 10,4:COLOR 4:PRINT”Illegal FILE NAME.Do Not Enter the .EXT":BEEP 

: FOR P-1 TO 2000:NEXT:LOCATE 10,4:PRINT SPACE?(50):COLOR 3:GOTO 1410 

1440 KL?-KL?+".FON":LOCATE 12,4:PRINT"Preparing to DESTROY FILE called ";KL? 

1450 ON ERROR GOTO 1500 

1460 LOCATE 14,4:PRINT"Hit the Y key to KILL....any other key to CANCEL." 

1470 CH?-INKEY?:IF CH?-""THEN 1470 

1480 IF CH?="Y" OR CH?-"y" THEN KILL KL?:FOR P-1 TO 1000:NEXT 

1490 LOCATE 5,64:COLOR 3,0:PRINT M?(6):F0R WIPE-9 TO 16:LOCATE WIPE,4:PRINT SPAC 
E?(60):NEXT:LOCATE 5,3:COLOR 15,4:PRINT M?(l):GOTO 2920 

1500 LOCATE 16,4:COLOR 15:PRINT”Sorry- NO SUCH FILE Existed!":FOR P-1 TO 2000:NE 
XT:GOTO 1490 
1510 ' 

1520 ’*** ADD an Entry *** 

1530 ' 

1540 LOCATE 23,l:COLOR 15,1:PRINT SPACE?(80):LOCATE 23,1:PRINT”ADD to Existing F 
iles":COLOR ,0 

1550 LOCATE 8,4:COLOR 2:INPUT "Enter Name Of FILE To Use";FI?:IF FI?=""THEN 1550 
1560 FOR EX-1 TO LEN(FI?):IF MID?(FI?,EX,1)-"." THEN COLOR 4:LOCATE 9,4:PRINT"I 
llegal FILE Name!":SOUND 300,2:FOR P-1 TO 2000:NEXT:LOCATE 8,4:PRINT SPACE?(50): 
LOCATE 9,4:PRINT SPACE?(50):GOTO 1550:ELSE NEXT EX 
1570 FI?-FI?+".FON" 

1580 OPEN "R",1,FI?,128 

1590 FIELD 1,30 AS A?,26 AS B?,28 AS C?,12 AS D?,32 AS E? 

1600 SIZE-128 

1610 LOCATE 21,55:COLOR 14:PRINT"Number of Records:";(L0F(1)/SIZE):IF (LOF(l)/SI 
ZE)-0 THEN LOCATE 10,4:COLOR 4:PRINT"No RECORDS in File by that Name!":FOR P-1 T 
0 2000:NEXT:LOCATE 10,4:PRINT SPACE?(50):LOCATE 8,4:PRINT SPACE?(50):CLOSE 1:G0T 
0 1550 

1620 RC%=(L0F(1)/SIZE)+1 

1630 LOCATE 9,4:PRINT"Adding Record #";RC% 

1640 LOCATE 10,4:PRINT"Enter NAME (Last Name First)...":LOCATE 11,9:INPUT NM? 
1650 LOCATE 12,4:PRINT"Enter Street or PO Box Address...”:LOCATE 13,9:INPUT ST? 
1660 LOCATE 14,4:PRINT"Enter CITY - STATE - & ZIP CODE":LOCATE 15,9:INPUT CT? 
1670 LOCATE 16,9:PRINT"Enter PHONE Number:":LOCATE 17,9:INPUT PN? 
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1680 LOCATE 18,4:PRINT"Enter REMARKS (32 Space Maximum):":LOCATE 19,9:INPUT RM$ 
1690 LSET A?—NM?:LSET B?=ST?:LSET C?=CT?:LSET D?=PN?:LSET E?-RM? 

1700 PUT #1,RC% 

1710 GOSUB 3370 

1720 LOCATE 21,4:COLOR 15:PRINT"Add Another Record [ Y/N ]" 

1730 AK$=INKEY$:IF AK$=""THEN 1730 

1740 IF AK?="Y" OR AK?="y" THEN 1750 ELSE 1770 

1750 LOCATE 21,4:PRINT SPACE?(40) 

1760 GOTO 1620 

1770 CLOSE 1:GOSUB 3370:GOTO 2900 
1780 ' 

1790 >*** EDIT Existing File *** 

1800 ' 

1810 LOCATE 23,1:COLOR 15,1:PRINT SPACE?(80):LOCATE 23,1:PRINT"EDIT an Existing 
File":COLOR ,0 

1820 LOCATE 8,4:C0L0R 2:INPUT"Enter Name of FILE to use ";FI?:IF FI?-"”THEN 1770 
1830 FOR EX-1 TO LEN(FI?):IF MID?(FI?,EX,1)-"." THEN COLOR 4:L0CATE 9,4:PRINT"IL 
LEGAL Filename !": SOUND 300,2: FOR P-1 TO 2000: NEXT: LOCATE 8 ,4-.PRINT SPACE? ( 50) :L0 
CATE 9,4:PRINT SPACE?(50):GOTO 1550:ELSE NEXT EX 
1840 FI?-FI?+".FON" 

1850 OPEN "R",1,FI?,128 

1860 FIELD 1,30 AS A?,26 AS B?,28 AS C?,12 AS D?,32 AS E? 

1870 SIZE-128 

1880 LOCATE 21,55:COLOR 14:PRINT"Number of Records(L0F(1)/SIZE):IF (LOF(l)/SI 
ZE)-0 THEN LOCATE 10,4:COLOR 4:PRINT”No RECORDS in File by that Name!":FOR P-1 T 
0 2000:NEXT:LOCATE 10,4:PRINT SPACE?(50):LOCATE 8 ,4:PRINT SPACE?(50):CLOSE 1:G0T 
0 1820 

1890 LOCATE 9,4:COLOR 2:INPUT"Enter Record Number to EDIT";RC% 

1900 IF RC% -0 THEN 2060 

1910 IF RC% > (L0F(1)/SIZE) THEN LOCATE 11,4:COLOR 4,15:PRINT"No Such Record #": 
FOR P-1 TO 2000:NEXT:COLOR ,0:LOCATE 11,4:PRINT SPACE?(50):LOCATE 10,4:PRINT SPA 
CE?(50):GOTO 1890 
1920 GET #1,RC% 

1930 LOCATE 10,4:PRINT"Change ThisCOLOR 15:PRINT A?;:COLOR 2:INPUT" Y/N";CG 
?:IF CG?-"Y” OR CG?-"y" THEN LOCATE 11,4:PRINT”Input New";:COLOR 15:INPUT NM?:C 
OLOR 2:ELSE A?=NM? 

1940 FOR WIPE-10 TO 11:L0CATE WIPE,4:PRINT SPACE?(60):NEXT 

1950 LOCATE 10 , 4 :PRINT"Change ThisCOLOR 15:PRINT B?;:COLOR 2:INPUT" Y/N";CG 
?:IF CG?="Y" OR CG?=”y" THEN LOCATE 11,4:PRINT”Input New";:COLOR 15:INPUT ST?:C 
OLOR 2:ELSE B?=ST? 

1960 FOR WIPE-10 TO ll:LOCATE WIPE,4:PRINT SPACE?(60):NEXT 

1970 LOCATE 10,4:PRINT"Change ThisCOLOR 15:PRINT C?;:COLOR 2:INPUT" Y/N";CG 
?:IF CG?="Y" OR CG?="y" THEN LOCATE 11,4:PRINT"Input New";:COLOR 15:INPUT CT?:C 
OLOR 2:ELSE C?=CT? 

1980 FOR WIPE-10 TO ll:LOCATE WIPE,4:PRINT SPACE?(60):NEXT 

1990 LOCATE 10,4:PRINT"Change ThisCOLOR 15:PRINT D?;:COLOR 2:INPUT" Y/N";CG 
?:IF CG?="Y" OR CG?="y" THEN LOCATE 11,4:PRINT”Input New";:COLOR 15:INPUT PN?:C 
OLOR 2:ELSE D?=PN? 

2000 FOR WIPE-10 TO 11:LOCATE WIPE,4:PRINT SPACE?(60):NEXT 

2010 LOCATE 10,4: PRINT"Change This COLOR 15-.PRINT E? ;: COLOR 2: INPUT" Y/N";CG 
?:IF CG?="Y" OR CG?="y" THEN LOCATE 11,4:PRINT"Input New”;:COLOR 15:INPUT RM?:C 
OLOR 2:ELSE E?=RM? 

2020 FOR WIPE-10 TO ll:LOCATE WIPE,4:PRINT SPACE?(60):NEXT 
2030 LSET A?=NM?:LSET B?=ST?:LSET C?-CT?:LSET D?=PN?:LSET E?-RM? 

2040 PUT #1,RC% 

2050 FOR WIPE-9 TO ll:LOCATE WIPE,4:PRINT SPACE?(60):NEXT:GOTO 1890 

2060 FOR WIPE -8 TO 21:LOCATE WIPE,4:PRINT SPACE?(74):NEXT:CLOSE l:GOTO 2900 

2070 ' 

2080 '*** PRINTER OPERATIONS *** 

2090 ' 

2100 LOCATE 8,4:COLOR 14:INPUT"Input NAME Of FILE To Use";FI?:IF FI?=”"THEN 2100 
2110 FOR EX-1 TO LEN(FI?):IF MID?(FI?,EX,1)-"." THEN COLOR 4:L0CATE 9,4:PRINT"IL 
LEGAL Filename!":SOUND 300,2:FOR P-1 TO 2000:NEXT:LOCATE 8,4:PRINT SPACE?(50):LO 
CATE 9,4:PRINT SPACE?(50):GOTO 2100:ELSE NEXT EX 
2120 IF LEN(FI ?)>8 THEN FI?-LEFT?(FI?, 8 ) 

2130 FI?=FI?+".FON" 

2140 OPEN "R”,1,FI?,128 

2150 FIELD 1,30 AS A?,26 AS B?,28 AS C?,12 AS D?,32 AS E? 

2160 SIZE-128 

2170 LOCATE 9,4:COLOR 3,0:PRINT"Select TYPE of Printer List You Want:" 

2180 LOCATE 10,4:COLOR 15:PRINT"1> Complete Record (include remarks)” 

2190 LOCATE 11,4:PRINT"2> Name, Address and Phone Number” 

2200 LOCATE 12,4:PRINT"3> Phone Listing (Name and Phone #)” 

2210 LOCATE 13,4:PRINT"4> Mailing Labels" 
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Address 


. State 


. L\Y 


. is enclosed. 


—____ 

□ My check in the amount of_ _ 

(In order to hold down costs, we do not bill.) 

Charge to: □ VISA □ MasterCard □ American Express 

Acct. Number---Exp. Date _ 

Signature ___ 


Subseriptions t° VCR are $15 a year In the United States. Canadian rate is U.S. $22. Air mail rate elsewhere is 
U.S. $60. All subscriptions begin with the current issue. Please allow 6 to 8 weeks for first copy. Kentucky residents 
add 5% sales tax. U.S. currency only, please. In order to hold down non-editorial costs, we do not bill. 

To order by phone (credit card orders only ) call 1-800-847-0309, 8 a.m. to 5 p.m. EST. 
For other inquiries call 1-502-228-4492. 

Mail to: VCR, The Falsoft Building, P.O. Box 385, Prospect, KY 40059 


A funny thing has happened in the home video 
market. As it gets easier and easier to watch what 
you want, it gets harder and harder to decide 
what that might be. 

Dozens of new tapes are released into the stores every 
week, along with hundreds of hours of programming on 
the network and cable channels. It has reached a point 
where even the most devoted videophile can use a little 
help sorting through it all. 

Now that help is available. 

Inside VCR you will find clear, easy-to-read reviews 
of all the best new releases. You'll find out about little- 
known videos — what they're about and where to get 
them. And in the feature articles, you'll find some very 
entertaining reading about the entertainment business. 

Now that you've discovered VCR, you won’t want to 
risk missing a single issue. You can save yourself the 
trouble of walking to the newsstand each month, and 
save yourself some money at the same time. 

Just fill out the attached card and drop it in the mail. 
Or even easier, call (502) 228-4492 and ask for Sandy. 
She’ll see to it that VCR is delivered right to your door 
each and every month of the year. 

Yes, enter my subscription for 
the next 12 issues of VCR. 

At only $15, that’s 36 percent off the regular newsstand price. I 

Name __ 


























SOIHB posmi? 

WHAT Am THE TWO MOST IUMPOHTANT CONSIDERATIONS? 



SIZE AND WEIGHT! 

This printer is half the size and half 
the weight of your Model 100. 
Anywhere you happen to be, 
cruising at 30,000 feet or in a cab to 
an important business meeting, you 
can get a quick and quiet printout. A 
perfect companion for your 
Model 100/200/600. 

FEATURES? 

This printer has them all: 

• 8 V 2 ” wide thermal paper 

• 512 byte buffer 

• Epson MX-80 bit-mapped graphics 

• Built-in automatic self test function 

• Excellent User’s Manual 




C ACTUAL print sample) 

80 Chars/Line? 40 CPS! 

E i-i 1 -=■ r~ •=* ■== cdt ! 
under 1 1 ned Emphasized! 
CONDENSED gives you 168 chars, per line! 


$99 GRAND TOTAL 

You get the printer and a specially 
made 18” cable (connects printer to 
your Model 100/200/600 or NEC 
8201/8401), 20’ roll of paper, a 
paper holder, and 4 “C” batteries 
— everything you need to start 
printing immediately with the push 
of a button. This price also includes 
free UPS surface shipping in the 
cont. USA. There is no surcharge 
for VISA/MC/Amex — even the 
phone call is free. 

RUGGED 

This printer was designed to print 
over 300,000 lines without 
maintenance — that’s over 104 
pages every week for a year. 




DIRECT TO YOU 

We’ve been selling this printer to 
our portable customers and 
corporate accounts for over a year. 
Two of our largest accounts, NBC 
and National Geographic, use them 
in the field all over the world. To 
meet the demand we have gone # J 
direct to the Japanese g |® 

manufacturer. Our large volume 
cost is unbelievable— that’s why 
we can offer it direct tp you at this 
fantastic price, fet still give you 
great service and suppoft (6 month 
parts/labor warranty, 30 day money 
back satisfaction guarantee). 

SUPPORT 

We stock paper (rolls and sheets), 
cables, and accessories for the 
printer. The full accessory kit costs 
only $24 and includes a carrying 
case, 100’ roll of paper, and an A/C 
adapter (saves batteries when A/C 
r er is convenient). 

RISK 

Try it for 30 days, ask your friends 
and business associates if they’ve 
ever seen anything like it. You can 
return it in 30 days for any reason 
and get a full refund. Don’t let 
yourself miss this portable printer 

harnain of a lifotimP 




















TANDY 200 
24K Memory Module 

$89 — two for $170 

Can be installed in less than 2 
minutes, the only tool required is a 
coin to pop open the hatch. The 
TANDY 200 is expandable to 72K by 
adding two of our 24K modules. 

Built with the lowest power and 
most reliable memory chips 
available. The pins are made 
specifically for the TANDY 200 chip 
socket. 2-Year Warranty. 


MODEL 100 

NEC PC 8201A, Olivetti M10 

8K Memory Module 
$29 — three for $79 

Plugs into the socket provided— 
expanding your memory by 8,192 
bytes. Super low power components 
for iong battery life. Low profile 
which is very important to properly 
fit the NEC PC-8201 A. Tens of 
thousands sold since 1983. 

2-Year Warranty. 

TANDY 600 
96K Memory Unit 

$249 — two for $469 

You can install one or 
units inside your TANDY 600 — 
giving you a maximum of 224K. 


of 


these 


NEC PC-8201A 
SIDECAR 128K RAM 
CARTRIDGE 

$259 

Plugs interne expansion slot 
providing fouf additional banks of 

32K each. 

IT'S EASY TO ORDER 
Send your order with payment to the 
Pia dress below. Or, if you prefer, 
credit card orders can be handled 
by phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 6% sales 
tax. Checks allow 3 weeks to clear. 
Institutions and Corporations call for 
purchase order approval. 

1-800-732-5012 TOLL FREE 

Orders only (8am. - 5pm. PST) 

In California (805) 987-4788 

For orders or customer service 

If you would like our latest product 
catalog or to find a dealer near you ^ 
please write or call (805) 987-47MH 


—w n i—kb 

COMPUTING 

420 Constitution Ave. 

Camarillo, CA 93010 
Telex: 888661 (PURPLE) 

Canada: Canada Portable Computer, 
Langley, B.C. (604) 856-8858 


FOOLISH 


mOKE — DANGEROUS TO PAY LESS 


BUM mUSIOHS! 







222JJ LOCATE 16,4:COLOR 2 : PRINT" Press Number Of Choice" : LOCATE 17,4:PRINT" 


2230 TY$-INKEY$:IF TYS-""THEN 2230 
2240 IF VAL(TY$)> 4 THEN 223(7 
2250 GOSUB 3370 

2260 LOCATE 9,4:COLOR 3:PRINT"Select Specifics Of Printer List:" 

2270 LOCATE 10,4:COLOR 15:PRINT”1> All Records" 

2280 LOCATE 11,4:PRINT"2> Specific Record Numbers" 

2290 LOCATE 12,4:PRINT"3> Search By 'TEXT' Occurrence" 

2300 LOCATE 14,4:COLOR 2:PRINT"Press Number Of Choice":LOCATE 15,4:PRINT" 


2310 NCS-INKEYS: IF NC$-'"’THEN 2310 
2320 IF VAL(NC$)> 3 THEN 2320 

2330 FOR WIPE-8 TO 15:LOCATE WIPE,4:PRINT SPACES(70):NEXT 
2340 LOCATE 10,4:COLOR ,0:PRINT SPACES(70) 

2350 IF VAL(NCS)—2 THEN 2480 ELSE IF VAL(NCS)-3 THEN 2590 
2360 RC%—1 

2370 FOR MAX-1 TO (LOF(l)/SIZE) 

2380 IF RC% -0 OR RC% > (LOF(l)/SIZE) THEN 2420 
2390 GET #1,RC% 

2400 GOSUB 2760 

2410 RC%-RC%+1:NEXT MAX 

2420 CLOSE 1 

2430 COLOR 3,0:FOR WIPE-8 TO 14:LOCATE WIPE,4:PRINT SPACES(70):NEXT 
2440 LOCATE 5,35:PRINT MS(4):LOCATE 5,3:COLOR 15,4:PRINT M$(l):GOTO 2900 
2450 ' 

2460 ’*** PRINT OUT SPECIFIC RECORD NUMBERS 
2470 • 

2480 LOCATE 21,4:COLOR 13:PRINT”Enter 0 To EXIT To Menu":LOCATE 10,4:COLOR 15,1: 
INPUT"RECORD NUMBER TO PRINT";RC% 

2490 IF RC%-0 THEN CLOSE l:COLOR 3,0:LOCATE 10,4:PRINT SPACES(50):LOCATE 21,4:PR 
INT SPACES(40):GOTO 2440 

2500 IF RC%> (LOF(l)/SIZE) THEN LOCATE 11,4: COLOR 4,15: PRINT’’No Such Record #":F 
OR P-1 TO 2000:NEXT:COLOR ,0:LOCATE 11,4:PRINT SPACES(50):LOCATE 10.4:PRINT SPAC 
E$(50):GOTO 2480 
2510 GET #1,RC% 

2520 GOSUB 2760 

2530 LOCATE 18,4:COLOR 14:PRINT"Press ANY KEY for another Selection.." 

2540 AK$-INKEY$:IF AK$-””THEN 2540 

2550 COLOR ,0:LOCATE 10,4:PRINT SPACES(50):FOR WIPE-12 TO 18:LOCATE WIPE,4:PRINT 
SPACES(50):NEXT WIPE:GOTO 2480 
2560 • 

2570 '*** PRINT OUT BY TEXT STRING *** 

2580 ' 

2590 RC%-1:LOCATE 21,4:COLOR 13:PRINT "Enter 0 to EXIT To Menu”:LOCATE 10,4:COLO 
R 15,0:INPUT"Enter the Exact TEXT to match”;STS 
2600 FOR MAX-1 TO (LOF(l)/SIZE) 

2610 GET #1,RC% 

2620 IF INSTR(AS,ST$) THEN 2680 

2630 IF INSTR(BS,ST$) THEN 2680 

2640 IF INSTR(CS.STS) THEN 2680 

2650 IF INSTR(D$,ST$) THEN 2680 

2660 IF INSTR(E$,ST$) THEN 2680 

2670 GOTO 2690 
2680 GOSUB 2760 

2690 IF RC%-(LOF(l)/SIZE) THEN COLOR 15,4:LOCATE 16,4:PRINT”End of FILE Encounte 
red":SOUND 300,2:FOR P=1 TO 1000:NEXT P:GOTO 2710 
2700 RC%-RC%+1:NEXT MAX 

2710 LOCATE 5,3:COLOR 15,4:PRINT M$(l):LOCATE 5,35:COLOR 3,0:PRINT M$(4):GOSUB 3 
370 

2720 CLOSE 1:GOTO 2900 
2730 • 

2740 •*** PRINTER ROUTINES *** 

2750 ' 

2760 IF VAL(TY$)—1 THEN LPRINT A$:LPRINT B$:LPRINT C$:LPRINT D$:LPRINT E$:LPRINT 
:LPRINT 

2770 IF VAL(TY$)-2 THEN LPRINT A$:LPRINT BS:LPRINT C$:LPRINT D$:LPRINT:LPRINT 
2780 IF VAL(TY$)-3 THEN LPRINT A$:LPRINT D$:LPRINT:LPRINT 
2790 IF VAL(TY$)-4 THEN GOSUB 2820 

2800 IF VAL(TYS)—4 THEN LPRINT TAB(4);FIRST$;SEC0ND$:LPRINT TAB(4);B$:LPRINT TAB 
(4);C$:FOR SKIP-1 TO 4:LPRINT:NEXT SKIP 
2810 RETURN 

2820 FOR SW-1 TO LEN(A$):IF MID$(A$,SW,1)-" " THEN 2830 ELSE NEXT SW:RETURN 
2830 FIRST$-RIGHT$(A$,LEN(A$)-SW):SECOND$=LEFT$(A$,SW-l) 
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lltl " ™ m «5» n« HEX! X 

28^ SECOnS-Sf^Ico™^;" " ID5<SOT! ' Z - 1 >- ’ ™ E “ E »” * 

288}? RETURN 
2890 ’ 

2900 ’*** MENU Selection *** 

2910 ' 

2920 M$(l)="Add":M$(2)="Edit":M$(3)-"List (Selective)":M$(4)="Print-Copy ":M$(5) 
“ Create (New)":M$(6)-"Kill (Existing)" VV ^ * 

2930 LOCATE 23,1:COLOR 15,0:PRINT SPACE$(80):LOCATE 23,1:PRINT"Menu Selections-- 
Hit [ space bar ] to CHANGE or [ ENTER ] to Select' 

2940 SELECT=1 

2950 CH$=INKEY$:IF CH$=”"THEN 2950 

2960 IF ASC(CH$)—32 THEN 2990 'update menu display 

2970 IF ASC(CH$)-13 THEN 3080 'exit menu and branch to action 
2980 GOTO 2950 

2990 SELECT-SELECT+1:IF SELECT-7 THEN SELECT-SELECT-6 
3000 SOUND 2600,.8 

INT^M$(1) ELECT=1 THEN L0CATE 5 ’ 64:COLOR 3 ^ :PR ™T M$ (6) : LOCATE 5.3 : COLOR 15,4:PR 

N? 2 S$j2) SELECT=2 THEN L ° CATE 5 ’ 3:COLOR 3 >0 : PRINT M$(l):LOCATE 5,9:COLOR 15,4:PRI 

INT^M$ ^(3) ELE ^ T=3 THEN L0CATE 5 ’ 9:COLOR 3,0: PRINT M$ (2): LOCATE 5,16: COLOR 15,4: PR 

RINT MS(4) LECT " 4 ™ EN L ° CATE 5 > 16:COLOR 3,0:PRINT M$(3):L0CATE 5,35:COLOR 15,4:P 

RINT M$(5) LECT ” 5 THEN L0CATE 5,35:C0L0R 3 -? :PRINT M$(4):LOCATE 5,49:COLOR 15,4:? 

RINT M$(6) LECT=6 THEN L0CATE 5,49:COLOR 3 -? :PRINT (5):LOCATE 5,64:COLOR 15,4:P 

3070 GOTO 2950 

309^ ? N SELECT G0T0 1540,1810,560,2100,250,1400 

3100 CLOSE 1: GOTO 2900 
3110 ■ 

3120 '*** Graphic TITLE Screen *** 

3130 * 

3140 KEY OFF:SCREEN 1,1:COLOR 0,7:CLS 

3 2 5 f E f E( W’^ ) ;< 17 < J ' 18 ( ? >' 2 -B:LINE(103,32)-(167,178),2,B:LINE(170,30)-(190,25) 
2.LINE-( 1 20,25),2:L I NE-(100, 3 0),2: LI NE( 1 90,25)-(190,170) 2•LINE-(170 180) 2 ; 

160 LINE(100,180)-(120,175),2:LINE-(120,30),2 LINE(i20 175 -(167 175) 2 

3170 R AINT(175,40),3,2:PAINT(105,40),3,2:PAINT(125,28),1,2 ^ ’’ 

3180 PUB$="Public Phone" 

3190 X-6:Y-12 

153 ? 76) R 3 E B^ 143 ’ 65) ’ 4:CIRCLE<143 ’ 65) ’ 3:LINE(14? ’ 71) ' (146 ’ 79) ’ 3 ’ BF:LINE < 15 ^- 63 )-( 
b? 4 ^ 4 n RAW " bral4i2 ’ 97 : cld 2 g 10fl5el0hl5" : PAINT(140,102) ,2,1:DRAW"bml40,102; clg6bf3e6 

^3 P 1 D MINT(224 , 112) C 2 R 1 ,?D3?L4?,U3,?E3R4(JG3BE3D3JJG3BH8BU5L25U5R25D5 ’ ,:PAINT(:23 ^' 123 
l??i5 0 “ T pRmV" P ™ " US " :L0CATE I 7 -29: PRINT-MAIL": LOCATE 16,34: PRINT"<- " : LOG 
3270 LOCATE 2,10:PRINT"P HONE-BOOTH" 

3280 LINE(40,0)-(280,20),2,B:LINE(41,1)-(279,19),1,B:LINE(42 2)-(278 18) 3 B 
3290 DRAW ”bml51,77;c2d7glllhlu4":DRAW"bml25,95;c2r30e2130f2" ’ ’ ’ 

3300 LINE(99,170)-(0,170),1:LINE(190,170)-(319,170) 1-LINE60 190)-f319 1901 l 
3310 FOR RING-1 TO 3:FOR K-2300 TO 1800 STEP- 2 i:SOTOD 1288 37 ‘ ^ " 

E(155 E 74) -(158 5 78) T 7 ’ 58> ’ 3 ' LINE(134 - 78)- (137,74) , 3 :LINE(155,58) - (158,54) , 3: LIN 

3330 FOR P-1 TO 10 ’:NEXT: LINE(134,54) - (137,58) ,0: LINE(134 78)-(137 74) 0-LINE6155 
,58)-(158,54),0:LINE(155,74)-(158,78),0:NEXT U ’ ' ^137,74),0.LINE(155 

3340 FOR P=1 TO 1000:NEXT:NEXT RING 
3350 LOCATE 23,30:PRINT "by L. Hyre" 

3360 FOR P=1 TO 2000: NEXT P: RETURN 

3380 CLOSERSYSTEM 0 21:L ° CATE WIPE • 4 •' pr *NT SPACE$(74):NEXT WIPE:RETURN 
















BASIC Bytes 


1000/1200/2000/3000 


Allow your program to 
make decisions with . . . 


BASIC 

Control 

Structures 

By Richard A. White 


A control structure is one of a 
number of statements that al¬ 
lows a program to make a 
choice. There is always some test made 
to determine which course of action to 
follow. Though the test may be complex 
and consist of a group of conditions, it 
boils down to either the conditions are 
true or false. 

Consider the FOR . . . TO . . . NEXT 
control structure. 

10 FOR X=1 tO 10 
20 do something 
50 finished doing it 
60 NEXT 

The first test is made when the NEXT 
in Line 60 is encountered. This means 
that the program will always do some¬ 
thing at least once. When NEXT is 
encountered, X is incremented by one 
(the default since STEP was not speci¬ 
fied), and a check is made to assure that 
X is equal to or less that 10. As long as 
this condition is true, the program 
returns to Line 20 and does “something 
again. 

Since X is just a variable like any 
other, you can use its value in your 
routine. A simple example is printing a 
menu where the menu text is in a string 
variable array called A$( ). Here is a 
program piece that does the job. 

10 CLS : FOR X=1 TO 10 
20 PRINT X;" ";A$(X) 

30 NEXT 

The menu produced looks like this on 
the screen. 


Richard White has a long background 
with microcomputers and specializes in 
BASIC programming. He has authored 
numerous programs and articles. His 
work has also appeared in PC M's sister 
publication , THE RAINBOW. 


1 

2 

3 

4 

5 

6 

7 

8 
3 

10 


Choice A 
Choice B 
Choice C 
Choice D 
Choice E 
Choice F 
Choice G 
Choice H 
Choice I 
Choice J 


By using STEP, you can count up or 
down and do so in increments other 
than one. All the following FOR . . . TO 
STEP . . . NEXT statements will 
work. 
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10 FOR X=10 TO 0 STEP -1 

20 . . . 

30 NEXT 

100 FOR X=0 TO 1 STEP .01 

110 .. . 

120 NEXT 

200 FOR X=1 TO -1 STEP -.4 

210 .. . 

220 NEXT 

300 FOR X=fl TO B STEP C 

310 .. . 

320 NEXT 

HHimllltlliiiPlfilllilMIllllillmilillllillliilllllllljllPItlt 1 

Here is a sneaky bit of code that gives 
an insight to the way FOR . . . TO . . . 
STEP . . . NEXT works. 

400 R=1 :B=10:C=1 

410 FOR X=R TO B STEP X+C : PRINT 
X" : NEXT 

The output to the screen looks like 
this: 

1 3 5 7 9 

BASIC goes through the beginning of 
Line 10 only once, establishing the 
initial value of X, its ending value and 
the STEP increment. NEXT sends the 
program to the code just after the FOR 
. . . TO . . . STEP definition. This code 
may be on the same line or on a new line. 

Want to lock up your computer? Here 
is an easy way: 

500 FOR X=1 TO 2 : X=0 : NEXT 

To drop out of the loop, X must reach 
a value greater than two when incre¬ 
mented by NEXT, but X always equals 
zero when the program reaches the 
NEXT. Now one would not be likely to 
want to do this on purpose, but anyone 
who has done much programming has 
probably done something like it by 
mistake. 

If the start and end values are integer 
values and STEP is an integer value, use 
an integer value for the loop variable. 
This significantly speeds operation of 
the loop since BASIC can use integer 
arithmetic rather than floating point 
math. Remember, the percent sign (*) 
specifies an integer variable. 

500 FOR C0UNT*=1 TO 100 STEP 2 

510 .. . 

520 NEXT 

One place to purposely use a single or 
double precision count variable is when 


using FOR . . . TO . . . NEXT as a program 
delay. FOR C0UNTtt=l TO 2000 : NEXT 
works beautifully as a delay. 

Note that I have never used the 
variable name after NEXT. NEXT COUNT* 
is acceptable code and some feel that it 
helps clarify a program. When memory 
is tight and every byte counts, then I am 
unwilling to waste bytes on unneeded 
names. If you do associate a variable 
with a NEXT, be sure it is the right one. 
BASIC knows full well which variable the 
NEXT is associated with and if you try 
to tell it something different, it will send 
a nastygram and quit. 

FOR . . . TO . . . NEXT loops may be 
nested to any depth likely needed. Two- 
or three-deep nesting is very common. 


It’s here that it is easy to make a mistake 
when associating a variable name with 
a NEXT. Still, to make the association 
clear, I will show the associated varia¬ 
bles in the following program that 
prints the multiplication table to the 
screen. 

10 CLSrFOR X= TO 9:F0R Y=0 TO 9 

20 PRINT X*Y; :NEXT Y :PRINT 

30 NEXT X 

There is more to program control 
than looping to a certain count. IF . . . 
THEN . . . ELSE is another workhorse 
control structure. If you could have 
only one control structure, it would 
have to be IF . . . THEN . . . ELSE be¬ 
cause you can make it do the same job 
any of the other control structures can 
do. The others exist to make program¬ 
ming easier, but are not critical to being 
able to write a program. 

In the beginning, there was IF . . . 
THEN. Then ELSE was added and how 
crude life was in the early days became 
apparent. 

There are three parts to an IF . . . 
THEN . . . ELSE statement. A test is 
performed after the IF key word. The 
test may be simple or complex, but 
BASIC boils it down to a final true or 
false and acts according to the result. 


If the test proves true, the code 
following the THEN is executed. The 
program either goes to the next line in 
the program or branches if a GOTO is 
encountered. Note that there may be 
one or more GOSUBs after the THEN, but 
the program always returns to finally 
move on to the next program line. 

If the test proves false, control goes 
to the code following the ELSE, if there 
is one. ELSE is optional. One limit is the 
ELSE must be in the same line as the IF 
and THEN. This might force the use of 
subroutine calls (GOSUBs) if a substan¬ 
tial amount of processing is required 
after the THEN, the ELSE, or both. There 
are ways to do the same thing with 
GOTOs, but things get confusing. Forget 


GOTO is in BASIC if at all possible. Look 
how straightforward subroutine calls 
can be. 

1100 IF TESTW0RD$ = "MORE THEN 
FLRG$ = "TRUE": GOSUB 
20:GOSUB 50 ELSE FLRG$= 
"FRL5E : GOSUB 30: GOSUB 50 

Here we made the test and set an 
initial condition, FLRG$="TRUE" or 
FLRG="FRL5E, and went off to two 
subroutines. All sorts of activity could 
have occurred in the subroutines, but 
the program still returns to Line 1100 
when all is accomplished and “top- 
down” program flow continues. The 
fact that the subroutines are at the 
beginning of the program does not 
upset the top-down concept since it 
refers to flow within the particular 
program module. In PASCAL, every¬ 
thing you are ever going to need in 
procedures or subroutines must come 
before the “main” procedure. 

Any test will include one or more 
relational operators. These are equal, 
(=), less than (<) and greater than (>); 
they may be combined. 

<= or =< less than or equal 
>= or => greater than or equal 
<>or>< not equal 
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“One place to purposely use a single or double 
precision count variable is when using FOR 
. . . TO . . . NEXT as a program delay.” 
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Logical operators are also provided 
and include AND, OR, NOT, XDR, EQV and 
IMP. AND, OR and NOT are most fre¬ 
quently used, as shown in the examples 
provided. 

IF COST <= PRICE THEN PROFIT = 
PRICE -COST ELSE LOSS =COST - 
PRICE 

IF AS < >"C0ND ITI ONI" AND 
B<=100 THEN . . . ELSE . . . 

IF C$ = ''SOMETHING" AND ( C > 

10 OR D > 100) THEN . . . 

IF NOT WARM THEN TEMPS - "COLD" 

Obviously there are all sorts of things 
that can be tested. The first example is 
a simple “less than or equal” test. The 
< > essentially means “not equal to.” It 
is typically used when comparing 
strings. There is also an AND in the 
example. It forces both conditions to be 
met before the test is “true.” The third 
line contains two tests within paren¬ 
theses. They are joined by an OR, which 
requires that only one be true for the 
parentheses to be true. The last example 
is a bit obscure. Microsoft BASIC uses 
zero to indicate false. Any other number 
indicates true. 

You can make major programming 
errors by setting up code after the IF 


without getting an error message. BASIC 
tries to do what you want, ends up with 
a true or false determination, and 
continues on. 

IF . . . THEN . . . ELSE statements can 
be nested. The limit is how many you 
can get in one line. You can sometimes 
use ANDs and ORs after the first IF to do 
the same thing nested IFs do. Look at 
your problem both ways. 

WHILE . . . WEND provides loop con¬ 
trol with the test at the beginning of the 
loop. If the test proves false, program 
control goes to the statement imme¬ 
diately following WEND. The test may be 
any of the types used after IF. One nice 
feature is WEND may be on a different 
line from its WHILE. This means WHILE 
. . . WENDs may be nested to any level 
and large amounts of code may be 
involved between a WHILE statement 
and its WEND. 

Each WEND is matched to the most 
recent WHILE. There must be a WEND for 
each WHILE and vice versa. Failure to 
have this match causes “WHILE without 
WEND” or “WEND without WHILE” error 
messages. 

WHILE .. . WEND is particularly useful 
in controling a loop where work con¬ 
tinues until some definable finish crite¬ 
ria is met. A bubble sort is a simple 


example. Suppose strings are held in an 
array with J members. The task is to 
start at the top of the array and compare 
two members. If a swap criteria is met, 
the two strings are swapped. Then, the 
second string is compared with the third 
and a swap is made if the criteria is met. 
Multiple passes are made until the array 
is in order. This is detected when there 
are zero swaps in a pass. Here is a short 
program to do this. 

200 'Bubble sort array A$( ) 

210 SWAPS-l 'Force one pass 
through the array 
220 WHILE SWAPS 
230 SWAP5=0 
240 FOR 1=1 TO J-l 
250 IF A$(I) > A$(I+1) THEN SWAP 
A$( I),A$(1 + 1) : SWAPS=1 
260 NEXT : WEND 

SWAPS need only be set to one to force 
another pass. When the list is in order, 
SWAPS will remain zero and the loop will 
be exited. 

The last set of control structures is of 
the ON . . . GOSUB and ON . . . GOTO type. 
They cause a branching to one of a 
number of lines depending on which of 
a number of criteria has been met. We 
will save these for next month. GHU 
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"Ahead, Mr. Sulu. Warp Factor One. 
Thataway. ” 


Stor Tff®k 


By John D. Shewchuk 


T ired of all those Star Trek “batch-type 

games? You know, the type that allows a light- 
year between plays like chess or checkers. Did 
you ever see Scotty stand still for anything? 

Mr. Spock would say, “How illogical.” Well, 
this Star Trek game is “real-time”! It’s a fast-paced, 
continuous-action fight to the finish. Both color and 
sound aid you (the Captain) to battle the enemy Once the 
enemy is sighted, there is no turning back, and it s too late 
to review the ship’s operating manuals. Luckily, Mr. 

Spock, Lt. Uhuru, Scotty and Sulu are on the bridge with 
you. With this game, you “earn” your efficiency rating. 

This game makes use of many of the unique capabilities 
of the Tandy 1000’s GW-BASIC. It will not work on IBM- 
type machines, primarily due to the use of the screen 
Mode 6 graphics, which allows both text and color grap - 
ics on the same screen. Tandy’s unique SOUND, NOISE and 
PLAY commands are also used throughout the program 
for added realism. The minimum facilities required to 
play this game are: a Tandy 1000 with GW-BASIC, an RGB 
monitor, at least 256K memory, good eyes and ears, a 
strong cardiovascular system and — most importantly 
a logical mind. 

The program is subdivided into four parts: the title 
screen, the menu (with internal documentation), the game 
playing and your rating. All sections are relatively short 
and simple, except the game, which constitutes 80 percent 
of the program. _ 

John Shewchuk is manager of over 60 computer pro¬ 
grammers and systems analysts at the U.S^Air Force s 
Global Weather Central, Offutt AFB in Omaha, Ne- 
braska. He has master’s degrees in meteorology and pub¬ 
lic administration. He developed this program Penally 
for his own pleasure and experience and partially Jor his 
wife, Judy, an original die-hard Trekker. 
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The Program 

The title section starts with (you guessed it) a star scene 
and other Star Trek opening texts and themes. The screen 
turns into a colorful, musical display to satisfy the needs 
of those “Trekkies” who are truly addicted to the words — 
Star Trek . This display used the handy RESTORE command 
(Line 1880) for this sequence. 

Next comes the menu. Here you are given your first three 
options: 1) view game rules, 2) view keyboard controls or 
3) start the game. 

The game rules consist of three pages of text, which 
outline information necessary toward understanding the 
capabilities of the Enterprise and the enemy. There are three 
types of enemies: a Romulan probe, a Klingon battle cruiser 
and Khan’s warship. Each type increases in difficulty. 

The second option, keyboard controls, shows a display 
of Tandy’s numeric keypad section and the functions they 
represent (note: the NUM LOCK light must be on). The other 
keyboard controls are located in the function keys Fl 
through F8. All controls are located in logical patterns. 

The last option, the game, is a non-stop Adventure 
against the enemy of your choice, which can only end with 
your final rating (last program section). Oh yes, Mr. Spock 
personally determines each of your efficiency ratings and 
recommends appropriate actions. Let’s hope you don’t 
display any emotions. 

Knowledge of the rules and keyboard controls is essential 
to a successful encounter. Knowledge of the rules is helpful, 
but the experience of battle is the best teacher. This Star 
Trek program is a game of skill. 

The captain’s chair (keyboard) has the following func¬ 
tions: First, the numeric keypad section. All number keys, 
1 through 9, are used. In numerical order, the functions are: 
impulse engine start, rear photon torpedo launch, hyper- 
drive, left turn, phaser blast (forward only), right turn, 
decrease warp speed, forward photon torpedo launch and 
increase warp speed. Second, the function keys, from Fl to 
F8, are: shields on, shields off, phasers on, phasers off, repair 
shields, repair weapons (phasers & torpedoes), repair 
ergosystems (ship’s five support systems) and repair engines. 

That’s it, folks. All keys respond in real-time through the 
INKEY$ function, which is always in a continuous loop (this 
loop is the heart of the main program in lines 3190 through 
3450). There is, however, a slight response delay to 
commands when one of the program subroutines is active 
(such as repair activities or enemy actions). The computer 
remembers each and every keyboard command, and each 
command will eventually activate its respective function. 
Novice Captains almost always become over-anxious and 
give the Enterprise several commands before the enemy 
makes a corresponding response. One important rule is the 
Enterprise permits an unlimited number of commands 
before the enemy responds, except for one command type 
— a weapons release (this rule allows the enemy a fighting 
chance). Beware — hesitation or lack of commands will 
result in the Enterprise's destruction, a very low efficiency 
rating and worst of all — Mr. Spock’s disapproval. 

A few words about the battle screen. It is split into two 
parts — the command and tactical screens. The command 
screen echos commands, the responses from the crew and 
other Enterprise/enemy statistics. The tactical screen 
performs only graphical activities, once text labels are 
established. The combination of the two screens’ text and 
graphics updates gives an accurate and timely status of all 
pertinent information about the battle — except what the 
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galley is cooking for supper 

This battle screen is created in four steps. First, screen 
Mode 6 is used to allow a combination of high resolution 
color graphics and 80-column text. Next, VIEW is used to 
define the tactical portion of the screen (viewport) for 
graphics use. Third, WINDOW SCREEN is used to redefine the 
tactical screen’s viewport in terms of “world coordinates” 
for ease of use. Finally, the Enterprise's initial text and 
graphics information is entered onto the battle screen. 

A note for those who only have Tandy’s originally 
supplied BASIC information booklet, A Reference Guide ; it 
indicates that screen Mode 6 has a “color set” of 16. Not 
true! Tandy’s expanded BASIC Reference Manual ($35) 
accurately indicates a “one” palette capability, which just 
allows four colors (Line 2830). 

The objective of this game is to rid the Federation of 
hostile intruders. Simple? Well, for the Romulan probe, this 
may be true, but the Klingon and Khan encounters become 
increasingly difficult. 

Enemy difficulty incorporates the following program 
activities: increased weapon releases, faster speeds, quicker 
repairs, more accurate weaponry and improved evasive 
tactics. The majority of these functions are located in lines 
4330 through 5050. This section also includes the main space 
vector calculation logic. Each time the enemy position and 
statistics are updated on the screen, this logic uses 
trigonometry to recalculate the position of the enemy 
relative to the Enterprise (movement of the Enterprise is 
subtracted from the enemy’s movement). 

Enemy statistics are updated via screen text about once 
every second. The enemy’s relative position to the Enter¬ 
prise is displayed graphically using a red dot on a circular 
viewport. Dot positions are updated through a combination 
of the CIRCLE and PRINT commands (lines 4890 through 
4900). The Enterprise vector arrow within this same 
viewport is updated using 36 different DRRW calls (lines 5250 
through 5740) representing the 36 points of the compass. 
Before the arrow is updated with the new DRRW command, 
it has to be “blacked out” with a call to the previous DRRW. 
This also occurs for the enemy’s red dot. 

The first executable line of this program uses a powerful 
option of Tandy’s BASIC language — the CLERR command. 
In this program, CLERR, ,1500,32768 is used. The 32,768 
“video memory” value is necessary to access screen Mode 
6. This also (unfortunately) requires more than the Tandy 
1000’s standard system of 128K RAM. The 1,500 “stack 
space” value was added to this program after the fact. 
During program development, I kept getting “Out of Mem¬ 


ory” errors in the FDR/ NEXT loops. After lots of headaches, 
I finally realized that the solution lay within this CLERR 
command option. I used the 1,500 value, which is about 
double the default 768-byte value, and have had no trouble 
since. 

This program uses the random number generator (RND) 
and the internal clock function (TIMER) throughout. These 
statements give this program a controlled degree of 
uncertainty and the real-time activities necessary for this 
type of game. The RND function is used primarily within the 
code that determines the enemy’s activities — within 
predetermined limits. The TIMER function is needed mostly 
to keep track of spacecraft repair activities. 

I’d like to make special mention of three versatile audio 
commands available in Tandy’s BASIC and used throughout 
this program — PLRY, SOUND and NOISE. Hopefully your 
internal Tandy 1000 speaker works, otherwise you will miss 
an important dimension to this game. (Maybe someday this 
GW-BAS1C will also allow stereo sound.) 

The powerful PLRY command is used mostly for musical 
tunes. The longest tune used was the Star Trek theme (lines 
1760 through 1790). It had to be divided into four sections 
because the PLRY buffer can only hold a limited number of 
notes at one time. 

The SOUND command is also very powerful and used 
mostly for sound effects. The most effective application of 
the SOUND command was the simulation of the doppler 
effect of an enemy’s plasma bolt (or whatever they fire at 
us) as it whizzes by the Enterprise (lines 4290 through 4310). 
Note that SOUND options (frequency, duration and volume) 
were all varied for this effect. 

The NOISE command was only used to give the Enter¬ 
prise's engines a representative background sound with an 
appropriate volume (Line 6880). This NOISE command was 
especially useful, since it can simultaneously operate with 
either the PLRY or SOUND commands. A valuable feature of 
all three “sound” commands is the option to specify volume. 
Other GW-BASICs do not allow the volume option. 

Before trying this game, be sure to read the internal 
documentation associated with the first two options in the 
main menu — the rules and the controls. Each option has 
three pages of information. 

The third main menu option puts you in the captain’s 
chair. Don’t forget to keep those shields up. Go ahead and 
clean the Federation of all those intruders and make Spock 
proud of you. Remember, it’s only a game — so have 


The listing: 

10 REM *rk*-k-k-k~k-k-k-k^^^ A A-A"A"A-A-A^-A-^rA- A -A"A-A A A A * 

20 REM 

30 REM STARTREK -- A Real Time Game ! 

40 REM 

50 REM by John D. Shevchuk * 1968 * Version 1.0 

60 REM 

70 REM for the Tandy 1000, w/256K 

80 REM 
90 REM 
100 REM 

110 CLEAR,,1500,32768!: KEY OFF: N-l 
120 GOTO 1540 

130 SCREEN 0: KEY OFF: COLOR 10,9,13: CLS 

140 PRINT ,f " ; print 

150 PRINT " »> STARTREK «<" 
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160 PRINT " 

170 PRINT " 

180 COLOR 13: FOR I 
190 PRINT ” 

200 PRINT " 

210 PRINT ” 

220 PRINT " 

230 PRINT ” 

240 COLOR 13: FOR I 


1 :PRINT 

*”: PRINT 


250 PRINT:PRINT " 

260 LOCATE 24,32: PRINT ”[ Version 1.0 


* A Real-Time Game 
TO 80: PRINT CHR$(177);:NEXT I:PRINT:COLOR 11:PRINT 
THE MENU : ■ 

_":PRINT 

1 - The Rules”:PRINT 

2 - The Controls”:PRINT 

3 - The Game”:PRINT 

TO 80: PRINT CHR$(177);:NEXT I:PRINT:PRINT:COLOR 7 
by John D. Shevchuk -- 1986” 


270 A$* 


A$=* INKEY $ : IF A$« 

280 IF A$=CHR$(50) THEN 310 
290 IF A$**CHR$(49) THEN 870 
300 IF A$=CHR$(51) THEN 1950 ELSE 270 
310 COLOR 10,1,4: CLS: 

320 PRINT ” 


THEN 270 ELSE 280 


PRINT 


*** BE SURE ’NUM LOCK’ KEY IS ON ***” 


330 PRINT 
340 PRINT 
350 PRINT 
360 PRINT 
370 PRINT 
380 PRINT 
390 PRINT 
400 PRINT 
410 PRINT 
420 PRINT 
430 PRINT 
440 PRINT 
450 PRINT 
460 PRINT 
470 PRINT 
480 PRINT 
490 PRINT 
500 PRINT 
510 PRINT 
520 PRINT 
530 PRINT 

540 LOCATE 25,8: PRINT "Press any key to continue 
550 A$= 

560 CLS: PRINT: PRINT 
570 PRINT ” 

580 PRINT ” FI 

590 PRINT ” F3 

600 PRINT:PRINT:PRINT 
610 PRINT " 

620 PRINT ” F5 

630 PRINT ” F6 

640 PRINT ” F7 

650 PRINT ” F8 

660 LOCATE 25,8: PRINT ” 
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A$«INKEY$: IF A$0”” THEN 560 ELSE 550 


*** BATTLE SUPPORT COMMANDS ***”:PRINT:PRINT 


SHIELDS ON 
PHASERS ON 


F2 - SHIELDS OFF”:PRINT 
F4 - PHASERS OFF” 


- SHIP’S REPAIR ACTIVATORS ----”: PRINT 

SHIELDS”:PRINT 
WEAPONS (PHASERS 
ERGOSYSTEMS (ALL 5 
DILITHIUM CRYSTALS (ENGINES)’ 

Press any key to continue 


PHOTON TORPEDOS)”: PRINT 
FUNCTIONS)”: PRINT 
PRINT 


670 A$» 


A$-INKEY$: IF A$0”” THEN 680 ELSE 670 


680 CLS: PRINT 
690 PRINT 1 
700 PRINT ' 

710 PRINT 
720 PRINT 
730 PRINT 
740 PRINT 
750 PRINT 
760 PRINT 
770 PRINT 
780 PRINT 
790 PRINT 
800 PRINT 
810 PRINT 
820 PRINT 
830 PRINT 
840 PRINT 


*** CONTROL CHARACTERISTICS ***”: PRINT 
* The computer remembers and executes all function commands" 
entered. The program will consecutively execute all those” 
entered, until a phaser or torpedo is fired -- after which” 


the enemy then takes a turn .' 


PRINT 


* The program will wait about 1 second after your last command” 
before the enemy executes the next command.”: PRINT 

* The repair function for Ergosystem #2 (Life Support - Oxygen)” 
must be activated within 10 seconds of enemy hit. Ship’s Hull” 
(Ergosystem #1) will fail when hit twice, even if the Hull is” 
being repaired after the first hit. Use those shieldsPRINT 

* All functions are echoed on the Command Screen, except the” 

Left & Right turn keys (#4 & #6, respectively).”: PRINT 

* Portions of the program’s openings can be skipped by pressing” 
any key. They are: the Star scene, the Title scene, and the” 
Coded Message scene.” 


850 LOCATE 25,20: PRINT "Press any key for Menu 


860 A$=*”” ; A$=INKEY$ : IF A$0” 

PRINT 


870 COLOR 10,,2: CLS 
880 PRINT ” 

890 PRINT ” 


THEN 130 ELSE 860 


***** This game has the Vulcan Seal of Approval ******* 

”: PRINT 
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Memory Upgrades for Tandy Portables! 

Model 600 96K RAM Upgrade 

$249. or $465. for two 

Save up to $ 335 . with this upgrade designed 
specifically for the Model 600. The 96K up¬ 
grade card fits into existing slots in the Model 
600 and adds either 96K or 192K of RAM to 
the computer. 


Model 200 

Model 100, 8201 or M10 

24K RAM Upgrade 

8K RAM Upgrade 

$89.00 

$27.00 

Two for $170. 

$75. for pkg. of 3 

Save up to $330. with this ex¬ 

Save upto$282. upgrading an 

act replacement while bringing 

8 K Model 100 to 32K. The 

your Model 200 up to 72K. 

modulesalsofitthe NEC8201 
and the Olivetti Ml 0. 


★ ★ ★ BUY QUALITY & SAVE ★ ★ ★ 

All three upgrades feature low power version of CMOS static RAM for 
minimum battery drain and maximum reliability. Our products are 100% 
tested before they leave the factory. Every upgrade carries with it a 30 day 
satisfaction money back guarantee and 1 yr. replacement warranty. Step 
by step illustrated instructions are included, and our customer service 
support is as close as your phone. 


TO ORDER 

CALL 714-540-1174 
or WRITE 

M/C, VISA, CHECK or MONEY ORDER 
CALIF. RESIDENTS ADD 6% Sales Tax 

SHIPPING-ADD 
UPS Ground $1.50 
2nd Day Air $4.00 
Next Day Air $12.00 

Tandy is a registered trademark of Tandy Corp. 


American 

^2311 Cryptronics, Inc. 


(Formerly Cryptronics, Inc.) 

1580 Corporate Drive, Suite 1 23 
Costa Mesa, California 92626 
(714) 540-1174 











900 PRINT * 
910 PRINT ’ 
920 PRINT ' 
930 PRINT ’ 
940 PRINT: 
950 PRINT 1 
960 PRINT ' 
970 PRINT 1 
980 PRINT ’ 
990 PRINT 
1000 PRINT 
1010 PRINT 
1020 PRINT 
1030 PRINT 


Difficulty 


- Romulan Star Scout 

- Klingon Battle Cruiser 
-- Khan's Warship 

1 * Objective: There is only one winner - 
PRINT " * Weapons -- The 
' - Phasers - 


PRINT 


* Defense 


* Engines 


> EASY" 

> MODERATE" 

> HARD": PRINT 
the Enterprise or the Enemy" 

Enterprise: "-.PRINT 
Range: 10,000 KM" 

Direction: Foreward only" 

- Torpedos - Range: 20,000 KM" 

Direction: Front and rear" 

Replenish: Only following Hyper-Drive" 

-- The EnemyPRINT 

- Type: Plasma Bolts" 

- Range: 20,000 KM" 

- Direction: Any angle; foreward is most accurate" 

1040 LOCATE 25,25: PRINT "Press any key to continue ..." 

1050 A$="": A$=INKEY$ : IF A$=*"" THEN 1050 ELSE 1060 
1060 CLS 
1070 PRINT 
1080 PRINT 
1090 PRINT 
1100 PRINT 
1110 PRINT 
1120 PRINT 
1130 PRINT 
1140 PRINT 
1150 PRINT 
1160 PRINT 
1170 PRINT 
1180 PRINT 
1190 PRINT 
1200 PRINT 
1210 PRINT 
1220 PRINT 
1230 PRINT 
1240 PRINT 
1250 PRINT 
1260 PRINT 
1270 PRINT " 

1280 LOCATE 24,10: 

1290 LOCATE 25,53: 

1300 A$«"": A$=INKEY$: IF A$ 


Shields { 2 banks }" 

Enemy avoidance ( via'speed and direction }": PRINT 
Impulse engines can only be started ... not stopped" 
Warp speeds range from 1 to 10; Enemy warps go higher" 
The Enemy has no Hyper-Drive (count your blessings)," 
-- Hyper-Drive gets Enterprise to StarBase 6 
(only if enough power)" 

then the Enemy continues the attack I" 


Note: Each Hyper Flight reduces available power" 


Ergosystems 


-- Hull: 
-- Oxy: 
-- Aim: 

-- Dat: 
-- Com 


Consists of inner and outer structures" 

Life support (oxygen, etc) systems" 

Target acquisition and aiming capabilities" 
Sensor data readings on enemy" 

Internal ship communications circuits"-.PRINT 


* Repairs -- 


Enterprise repairs are activated via F5 - F8" 
{Ergosystem repair selection [F7].is pre-set) ,v 
-- Enterprise and Enemy repairs are internally" 

prioritized and timed according to difficulty":PRINT 
* Note: The capability/advantage of turning 'off' the" 

Shields and Phasers [F2 & F4] is to free power" 

PRINT"if extra is needed to achieve Hyper-Drive"; 

PRINT "Press any key to continue..."; 

THEN 1300 ELSE 1310 


1310 CLS: PRINT 


1320 PRINT 
1330 PRINT 
1340 PRINT 
1350 PRINT 
1360 PRINT 
1370 PRINT 
1380 PRINT: 
1390 PRINT 
1400 PRINT 
1410 PRINT 
1420 PRINT 
1430 PRINT 
1440 PRINT 
1450 PRINT 
1460 PRINT 
1470 PRINT 
1480 PRINT 
1490 PRINT 
1500 PRINT 
1510 PRINT 


* Color Codes:" 

' -- Light Blue - system OK / activated" 

* -- Red - system damaged / inactive" 

* -- Yellow - system under repair & still inactive" 

’ until repairs are completed (computer controlled)" 

' Note: engine colors reflect engine speeds - not damage" 

PRINT " * Damages:" 

’ -- Shields are first systems damaged upon enemy hit." 

' After shields are gone (red or yellow), all other" 

” ship's sytems are liable targets." 

" -- Damage to both dilithium crystals prevent warp speeds." 

n Further damage (one more hit) stops impulse engines." 

" * Phasers and forward torpedos usually hit enemy only when the" 

" Enterprise vector (bearing) arrow points toward the enemy" 

" position (red dot). Note: Skill can be achieved by leading the" 
" target using data displayed on the Enemy Status screen 


enemy's bearing and warp speed data are essential.": 
Enemy evasive actions, offensive tactics, and repair 
improve with selected degree of difficulty.";:PRINT 
1520 LOCATE 25,26: PRINT "Press any key for Menu . . ."; 

1530 A$=*INKEY$: IF A$=”" THEN 1530 ELSE 130 
1540 OPTION BASE 1: TIMER ON: SCREEN 0 
1550 DIM KB(2,36), SS(6), TE(5) 

1560 GOTO 1590: REM - NEXT 2 LINES IS A JUMP FORWARD SUBROUTINE 
1570 K$ = INKEY$: IF K$ O "" THEN 1580 ELSE RETURN 
1580 GOTO 130 

1590 SCREEN 6: CLS: RANDOMIZE TIMER 
1600 FOR I - 1 TO 200: GOSUB 1570 

1610 MX * INT(RND*639)+1: NX = INT(RND*190)+1: PSET (MX,NX),9: NEXT I 
1620 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: J « 500 
1630 STARS$ - "MBO5T40V9MLC.O4G.B-.F.P30C.O3G.B-.F." 


use of" 

PRINT 

activities" 
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1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
I 2020 

2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 


COLOR 

PRINT 

PRINT 


FOR I 
PRINT 
PRINT 


PRINT CHR$(CL(J)) 


Fasten Seatbelts 
I: GOTO 130 
CLS 


PLAY STARS$ 

SPACE";: FOR I * 1 TO J: GOSUB 1570: NEXT I 
THE FINAL FRONTIER.";: FOR I *» 1 TO J* GOSUB 1570* NFYT t 
PRINT " THESE ARE THE VOYAGES OF" 9 ' ^ 1 

PRINT: PRINT " THE STARSHIP ENTERPRIZE, HER FIVE MINUTE MISSION --»• 
- 1 TO J: GOSUB 1570: NEXT I 

ANn N K_r STRANGE NEW WORLDS, TO SEEK OUT NEW LIFE"; 

m AND NEW CIVILIZATIONS.": FOR I - 1 TO J: GOSUB 1570- NEXT I 

PRINT: PRINT » TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE." 

FOR I - 1 TO J: GOSUB 1570: NEXT I- 
SCREEN 0:COLOR 0.0,0:CLS 

: CL(1)—176: CL(2)-8: CL<3)-223:CL(4)-219 : CL(5)-178 

Y -EF G C T2ia^ 3 ISrll ™?, E - T12!J D - 04 D - T190 C 03 B-AGF T60 E. P16 
EF.G T210 AB- 04 CDE- T120 E. T100 F P16" 

Z$-"AG.A T210 B- 04 CDEF T120 F+. T100 G. P16 03 B-4" 

A$—”03 MB ML T120": DIM CLR(5) 

Ky^aSwW CLR(2) " 4: CLR(3)—3: CLR(4)-5: CLR(5)-1 

FOR J - 1 TO 5 
COLOR CLR(J),J,CLR(J) 

FOR I - 1 TO 223 
K$ - INKEY$ 

IF K$ O "" THEN 130 
READ L,M: LOCATE L,M: 

NEXT I: RESTORE 
IF J - 1 THEN PLAY A$+Y$+A$+Z$ 

IF J - 2 THEN PLAY A$+X$ 

IF J - 3 THEN PLAY A$+Y$+A$+Z$ 

NEXT J 

COLOR 26,12: LOCATE 21,26: PRINT 
FOR I - 1 TO 500: GOSUB 1570: NEXT 
SOUND OFF: SOUND ON: COLOR 5,2,12: 

FOR I - 1 TO 3: SOUND 500*1,2,11: NEXT I 
LOCATE 1,1: FOR I - 1 TO 80: PRINT CHR$(210)-: NEXT I 
LOCATE 5,1: FOR I - 1 TO 80: PRINT CHR$(208) : NEXT I 
DATE - INT(RND*777777!)/100 + 1000.11 

LOCATE 3,32: COLOR 1: PRINT "STARDATE " DATE: COLOR 14 1 
PLAY "03 Vll T120 MB MS C4C16G.T255B-8G8E8C." 

LOCATE 7,10: PRINT "Welcome aboard the StarShip Enterprise ” 

LOCATE 9,10: print -This Is Lt Uhura," Enterprise. 

LOCATE ll'W. 1™ 7J eaSe enter your name in the Admiral's Log." 

LOCATE 13,30: COLOR 0,2: INPUT; "", NAS * 

IF LEN(NA$) < 10 THEN 2130 

JSf"T25 3 5 3 ?AE"° R 1 " 1 T ° LEN<NAS): PRINT " NEXT I 

LOCATE l’ 10- print " W ® kn ° W you ' re P roud of 7 °ur heritage," 

S u li-SSJ "lo le^:% C °T terS Can ° nly handle 9 -iphanumerics " 
GOTO 2050 S ^ iC ° ne m ° re time t P ‘ S - S P° ck ’ a watching] 

y °* captain " 

FOR I - 1 TO 1000:NEXT I: COLOR 14,1,1 

PLAY 3 '"T225oici602C1603C1604C1605C1606C16" 32 ^ 1 

iSSS ~ «*-\ 

FOR I - 1 TO 1000: NEXT I *. 

^’p 1 t T ° PRINT CHR$(32); : NEXT I: COLOR 12 

tOR J 20 TO 23: FOR I - 1 TO 80: LOCATE JIG* KS-TNYFY^ 

SOUND INT(RND*4000) +1000 .8,10:. IF K $ <> - thJ N Hsl 
PRINT CHR$(RND*221+33);: NEXT I: NEXT 7 9 

FOR I - 1 TO 1000: NEXT I 
COLOR 11,1,6: CLS 

PR ™? i'c Shi P' s computer now decoding message ." 

t 15 i PRINT: S0UND 0N = F °R I - 1 TO 3: SOUND 1*2000 2 15- NEXT I 
FOR I - 1 TO 2000: NEXT I: SOUND 1000,15,11: COLOR 14 

PRINT SPC(10) CHR$(4) " CONDITION YELLOW " CHR$(4)- PRINT- COLOR 7 

FOR I - 1 TO 900: NEXT I: SOUND 4000,5,12 

PRINT SPC(10) CHR$(4) " StarBase #" INT(RND*9+1)• 

PRINT "reports unidentified craft " 

X - INT(RND*9+1) 

FOR I - 1 TO 900: NEXT I: SOUND 4000,5,12 

PRINT sp C(10)CHR$(4) " approaching at WARP Factor" X ".» 

FOR I - 1 TO 900: NEXT I: SOUND 4000,5,12 










Set, 


















































Make The Right Connection 
With A Tandy® Printer 


We’ve got a Tandy printer for 
your every need 

When you buy a printer, the last 
thing you want is to find that it’s not 
compatible with your computer, or 
that you can’t find accessories or 
support. So why take chances? 

Come to Radio Shack, where you’ll 
find a wide selection of printers that 
are ready to use with Tandy and 
other popular compatible comput¬ 
ers. Plus, we give you the profes¬ 
sional support you demand. 



Triple-mode “personal printer” 

If you need correspondence- 
quality printing with variety, our 
DMP 130 is the ideal printer for 
you. It prints in four character 
styles: standard or cursive italic, in 
front-panel selected draft or corre¬ 
spondence modes at up to 100 
characters per second. It also sup¬ 
ports super/subscripts, double¬ 
width, bold, double strike and 
microfonts. IBM® PC compatible, 
too. (26-1280, $349.95.) 



Budget-priced high performer 

If you’re looking for an affordable 
printer, you’ll find our DMP 105 is 
ideal. This speedy printer produces 
80 upper and lower case characters 
per line at 43 lines per minute (80 
cps). With a bit-image graphics 
mode and removable adjustable 
tractor, our DMP 105 is a true per¬ 
former! (26-1276, $199.95.) 



132 -colunvi printer with 
18 -wire print head 

Never before has such fine print 
quality been so affordable! The 
print head of our DMP 430 contains 
18 wires to produce excellent 
correspondence-quality fonts in a 
single pass. Prints 10, 12 or 16.7 
characters per inch, plus elongated 
standard, elite and condensed at up 
to 180 characters per second. You 
can choose from micro, italic and 
double-high fonts, too. The DMP 
430 features a true pin-driven 
tractor—not sprocket. IBM PC 
compatible. (26-1277, $899.) 



Dot-matrix power for business 

The DMP 2200 is our most versa¬ 
tile business printer. Because it’s so 
fast, there are no more long delays 
for reports—and that means your 
business saves money. It supports 
elongated, double high, bold, un¬ 
derline, super/subscripts, italics and 
double strike, plus bit-image graph¬ 
ics. You can print your original re¬ 
port, plus up to six copies at 380 
characters per second. It also has a 
built-in tractor for perfect paper 
alignment. Plus, it’s IBM PC com¬ 
patible. (26-1279, $1695.) 

Save time while printing 

With a PTC 64 Printer Control¬ 
ler, you can print one job while 
working on another. The “print 
buffer” accepts and stores informa¬ 
tion from your computer, then feeds 
it to your printer as fast as the 
printer can handle it. It features a 



clear-memory function, a pause 
function and a copy function for 
printing up to 100 consecutive orig¬ 
inals. The built-in Z-80 processor 
can be programmed by the host 
computer to handle graphics and 
special text. (26-1269, $249.95.) 

Tandy... Clearly Superior™ 

We’ve got over 1200 Computer 
Centers nationwide ready to help 
you choose the very latest in com¬ 
puter technology, and we’ll give you 
the service and support you need. 
With over 188 strategically located, 
company-owned Service Centers, 
you can be assured of excellent ser¬ 
vice when you need it. 

And we’ve got a wide variety of 
accessories too—everything from 
paper and pre-printed forms to 
print-wheel cleaning kits. Visit your 
nearest Radio Shack Computer 
Center and see our complete line of 
printers and accessories today. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 

Radio /hack 

COMPUTER CENTERS 

A DIVISION OF TANDY CORPORATION 


If 

1 

1 


*i Ml If if ts m tsi in 

Send me an RSC-16 Computer Catalog. 

Radio Shack, Dept. 86-A-901 
300 One Tandy Center, Fort Worth, TX 76012 

if 

Name_ 


- H 

Company _ 


I 

1 


Address_ 

City_ 

State_ZIP 


: 

1 


Phone_ 1 

Si III Ell in 111 111 til «« ill 


Prices apply at Radio Shack Computer Centers and 
participating stores and dealers. IBM/Reaistered TM 
International Business Machines Corp. 















2380 PRINT SPC(10) CHR$(4) " You must stop their advance at all cost." 

2390 X - INT(RND*9+1) 

2400 FOR I - 1 TO 900: NEXT I: SOUND 4000,5,12 

2410 PRINT SPC(10) CHR$(4) " Identify your last known contact in Sector" X 
2420 FOR I - 1 TO 900: NEXT I: SOUND 4000,5,12 
2430 PRINT SPC(10) CHR$<4) " Proceed at once I" 

2440 FOR I - 1 TO 900: NEXT I: SOUND 5000,5,13 
2450 PRINT SPC(10) CHR$(4) ” < END OF MESSAGE >” 

2460 FOR I - 1 TO 2000: NEXT I 
2470 GOTO 2490 

2480 COLOR 11,1,8: CLS: PRINT:PRINT:PRINT: X-INT(RND*9+1) 

2490 COLOR 1,2,8: SOUND ON: NOISE 3,11,32000 
2500 PRINT " 

2510 PRINT " *** Computer Memory: Sector " X 

2520 PRINT " 

2530 FOR I - 1 TO 1000: NEXT I 

2540 PRINT » >» Enter 1 - Romulan Probe 

2550 PRINT " »> Enter 2 - Klingon Battle Cruiser " 

2560 PRINT " »> Enter 3 - Khan’s Warship " 

2570 PRINT " " 

2580 A$ - "" 

2590 A$ - INKEY$: IF A$ - "" THEN 2590 

2600 IF A$ - "1” THEN EN=4: EM-7: ME-2: EN$—"ROMUIAN": GOTO 2640 

2610 IF A$ - "2" THEN EN-3: EM-4: ME-4: EN$-"KLINGON": GOTO 2640 

2620 IF A$ - "3" THEN EN-2: EM-2: ME-6: EN$-" KHAN'S": GOTO 2640 

2630 GOTO 2580 

2640 SOUND ON: SOUND 777,20,8 

2650 COLOR 12,1: EMISS-EN*14: MEX-ME+5 

2660 FOR I - 1 TO 80: PRINT CHR$(254);: NEXT I:PRINT:FOR I - 1 TO 500:NEXT I 
2670 COLOR 20,3,4:LOCATE 20,25: PRINT "CONDITION-RED" 

2680 FOR J-l TO 5:FOR 1-1 TO 10:SOUND 1*500,.5,12:SOUND 1*1000,.5,12:NEXT I,J 
2690 COLOR 10,0 

2700 LOCATE 24,13: PRINT "Captain " NA$ " t"; 

2710 LOCATE 24,31: PRINT " »> You're wanted on the Bridge.";: PLAY OFF 
2720 TS - "03 Vll T120 MF MS C4C16G. T255 C8E8F8G8 T150 B-. 04 T50 C." 

2730 PLAY T$ 

2740 REM ** -* * - * ********** MAIN PROGRAM ** * ** * -*********■ * * ** - * **■ ** *■ * ************•*■** 
2750 REM ******* ****** * * ** INITIALIZATION ******* »*a - a*» - * - » - » - a - * - **** - a - ** * a - * - * - * 

2760 FOR I - 1 TO 6: SS(I)-0: NEXT I: FOR I - 1 TO 5: TE(I)-0: NEXT I 
2770 SCREEN 6: CLS: TIMER ON: TIMEX-TIMER: MISS-0: PA-0: PO-0: SP-0: SX-0 
2780 KP-25: PR-30: ZAP-0: TORMIS-0: YD-0: SD-0: PD-0: TD-0: CD-0: TL-0: SH-0 
2790 TS-0: TT-0: TP-0: TC-0 

2800 SOUND ON: PLAY "T99MB05V9ML C.04G.B-.F.P30C.O3G.B-.F." 

2810 EE - 30: REM - ENTERPRIZE REPAIR TIMER FACTOR 
2820 GOSUB 2830: GOTO 2840 

2830 PALETTE 3,1 :PALETTE 0,3: PALETTE 2,14: PALETTE 1,12: RETURN 

2840 FOR I - 1 TO 12: KEY I, NEXT I 

2850 REM -- Wl$ - W3$ ARE FOR WORK PARTY SOUNDS 

2860 REM Wl$ - "MBV10L16T255O4C.FGEDC+FFG-CEA." 

2870 REM W2$ - "MBV10L16T255ML05EFG+G+GE-DA+CGDF" 

2880 REM W3$ - "MBV10L16T255MSO3A.DAGFE-DCC+BG" 

2890 KB(1,1)-340:KB(2,l)-49:KB(1,2)-347:KB(2,2)-52:KB(1,3)—353:KB(2,3)—55 

2900 KB(l,4)-357:KB<2,4)-59:KB(l,5)-361:KB(2,5)-63:KB(l,6)-364:KB(2,6)-68 

2910 KB(1,7)-366:KB(2,7)-73:KB(1,8)-368:KB(2,8)—79:KB(1,9)-368:KB(2,9)-85 

2920 KB(1,10)—368:KB(2,10)—91:KB(1,11)—366:KB(2,ll)-97:KB(1,12)—364:KB(2,12)=102 

2930 KB(1,13)-361:KB(2,13)-107:KB(1,14)-357:KB(2,14)-111:KB(1,15)—353 

2940 KB(1,16)-347:KB(2,16)-118:KB(1,17)-340:KB(2,17)-120:KB(1,18)—333 

2950 KB(1,19)-326:KB(2,19)-120:KB(1,20)-319:KB(2,20)-118:KB(1,21)—313 

2960 KB(1,22)=309:KB(2,22)-lll:KB(1,23)-305:KB(2,23)—107:KB(1,24)—302 

2970 KB(l,25)-300:KB(2,25)-97:KB(l,26)-298:KB(2,26)-91:KB(l,27)-298:KB(2,27)-85 

2980 KB(l,28)-298:KB(2,28)-79:KB(l,29)=300:KB(2,29)-73:KB(l,30)-302:KB(2,30)-68 

2990 KB(l,31)-305:KB(2,31)-63:KB(l,32)-309:KB(2,32)-59:KB(l,33)-313:KB(2,33)-55 

3000 KB(l,34)-319:KB(2,34)-52:KB(l,35)-326:KB(2,35)-49:KB(l,36)-333:KB(2,36)-48 

3010 KB(2,15)—115:KB(2,18)-121:KB(2,21)—115:KB(2,24)—102 

3020 WR$—"** WARNING ** Insufficient Power **": MS$-’’Mr Spock, ":MZ$-"Sulu, " 
3030 RA$—"Raise shields quick.": L0$-"Lower shields.": SR$-"Sir, " 

3040 CA$-"Captain ": SC$-"Scotty, ": RP$-"- Repeat your order Sir." 

3050 AD$=" are damaged!": TT$-"Torpedo tubes": PB$-"Phaser banks" 

3060 CD$—" crystal damaged!": WE$-"Warp engines" 

3070 CM$-"Main computers": LS$-"Long range sensors": TS$-"Targeting systems" 

3080 LF$—"Life support systems": HL$-"Ship's structures" 

3090 EX-36: SH-0: DY-3: KX-36: ER-0: KF$—"": K$-’"' 

3100 KH!-0: KV1-25000: KD-180: KS-3: RG-25000 
3110 PT-10: PX-0: GOSUB 3490: CDPR-3 
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312? 
313? 
314? 
315? 
316? 
317? 
318? 
319? 
32?? 
321? 
322? 
323? 
324? 
325? 
326? 
327? 
328? 
329? 
33?? 
331? 
332? 
333? 
334? 
335? 
336? 
337? 
338? 
339? 
34?? 
341? 
342? 
343? 
344? 
345? 
346? 
347? 
348? 
349? 
35?? 
351? 
352? 
353? 
354? 
355? 
356? 
357? 
358? 
359? 
36?? 
361? 
362? 
363? 
364? 
365? 
366? 
367? 
368? 
369? 
37?? 
371? 
372? 
373? 
374? 
375? 
376? 
377? 
378? 
379? 
38?? 
381? 
382? 
383? 
384? 
385? 


LOCATE 5,7: PRINT CA$ NA$ "_ 

LOCATE 7,7: PRINT "Target is rapidly approaching.” 
VT - TIMER: QT-10+(EM*4): REM - ENEMY REPAIR TIMER 
KEY 1,"S”: KEY 2,"L": KEY 3,"P": KEY 4,"0" 

KEY 5,"C" : KEY 6,”W": KEY 7,”E": KEY 8 ’ "D" 

NV=0: HYPER-0 
SOUND ON 

TM - TIMER: SOUND ON: NOISE 2,NV,32000 

SOUND 1986,3,11 

GOSUB 4140 

GOSUB 4200 

GOSUB 8710 

COUNT - 0 

A$ - INKEY?: COUNT - COUNT + 1 
IF A? - THEN 3450 

IF A? - CHR?(49) THEN GOSUB 6230: GOTO 3250: REM 
CHR$(83) THEN GOSUB 5820: GOTO 3250: REM 


IF A? 


■ T s-rs . WIU Kiln 

IF A$ ~ CHR$(51) THEN GOSUB 627?: GOTO 325?- REM 

IF A$ - ~~- 

IF A$ 

• • -- — r • r * wav - f o 

IF A$ " THEN G0SUB 851 ? : G0T0 325?: REM " F7 

IF A$ 

IF A$ 


CHR$(68) THEN GOSUB 845?: GOTO 325?: REM - F8 
CHR$(55) THEN GOSUB 628?: GOTO 325?: REM 


IF A? - CHR?(57) THEN GOSUB 6290: GOTO 3250: REM 

IF A? = CHR?(52) THEN GOSUB 5260: GOTO 3250: REM 

IF A? - CHR?(56) THEN GOSUB 7440: GOTO 3190: REM 

IF A? - CHR?(54) THEN GOSUB 5280: GOTO 3250- REM 

IF A? - CHR?(76) THEN GOSUB 5760: GOTO 3250: REM 

CHR?(79) THEN GOSUB 7190: GOTO 3250: REM - 
CHR?(50) THEN GOSUB 3460: GOTO 3190: REM - 


REM - 

1, 

IMPULSE 

REM - 

FI, 

SHIELDS ON 

REM - 

F3, 

PHASERS ON 

REM - 

3, 

HYPER 

REM - 

F5, 

FIX SHIELDS 

REM - 

F6, 

FIX WEAPONS 

REM - 

F7, 

FIX SYSTEMS 

REM - 

F8, 

FIX ENGINES 

REM - 

7, 

WARP - 

REM - 

5, 

PHASER 

REM - 

9, 

WARP + 

REM - 

4, 

LEFT 

REM - 

8, 

TORPEDO A 

REM - 

6, 

RIGHT 

REM - 

F2, 

SHIELDS OFF 

REM - 

F4, 

PHASERS OFF 

REM - 

2, 

TORPEDO AFT 


~k'k”A n & A A A A A"A"A":Ar A^oWoAtjV iciricrk 


IF A$ 

IF A$ 

GOTO 325? 

IF C 0UNT > THEN 3190 ELSE 3250 

A A A A A A A A A * * * * TORPEDO LAUNCH -a-a-a-a a a Ata-a-a-a a *a-a a a a a a a a * >v******** 

XE=EX: EX-EX+18: IF EX>35 THEN EX-EX-36 
GOSUB 7440: EX=XE: RETURN 
REM ****-** A A* TACTICAL SCREEN SETUP 
VIEW (0,102)-(639,199),3 

WINDOW SCREEN (0,0)-(400,140):PAINT (240,125) 3 
FOR I - 1 TO 80: PRINT CHR?(220);: NEXT I 
PRINT CHR?(221) SPC(10); 

PRINT -USS ENTERPRISE COMMAND SCREEN"- 
PRINT SPC(10) CHR?(219) " ’ 

PRINT EN? " STATUS 
PRINT CHR?(222); 

FOR I'« 1 TO 80: PRINT CHR?(223);: NEXT I 
PRINT CHR?(221) SPC(49) CHR?(219) SPC(28) CHR?(222)- 

PRINT CHR?(221) SPC(49) CHR?(219) " Ranee- 

PRINT CHR?(222); ' Kange. 

PRINT CHR?(221) SPC(49) CHR?(219) " Heading- 

PRINT SPC(6) CHR?(222); 8 ’ 

PRINT CHR?(221) SPC(49) CHR?(219) - Warp # 

PRINT CHR?(221) “ P 

PRINT CHR?(219) 

FOR i 


KM 


" CHR?(248); 
SPC(13) CHR?(222); 


>_ ■■■■■ ... -■ CHR?(222) J 

? ™ !i PRINT CHR S< 221 ) SPC(49) CHR?(219) SPC(28) CHR?(222)■• NEXT 
1 TO 83: PRTNT rwne . . NEXT j ^ ; 


Hyper” 

7 8 9 1? 


Drive" 


FOR I - 1 TO 8?: PRINT CHR$(22?) 

PRINT CHR$(219) SPC(24); 

PRINT ”T A C T I C A L S C R E E N "* 

PRINT SPC(25) CHR$(219); 

LOCATE 15,3 

PRINT "Impulse WARP 

LOCATE 15,62: PRINT "Target Bearing" 

LOCATE 16,3: PRINT "Engines 123456 
LOCATE 16,62: PRINT "Enterprise Bearing" 

LOCATE 19,7: PRINT "Shields" 

S2S ■»—•—»- 

LOCATE 22,35: PRINT "Dilithium Crystals" 

LOCATE 23,6: PRINT "Hull Oxy Aim Dat Com" 

LOCATE 23,37: PRINT " # 1 # 2 ” 

VIEW PRINT 4 TO 11 

CIRCLE (333,85),29,2,,,.45: SOUND 4000 1 n 
CIRCLE (333,85),42,2,,,.45: SOUND 4500,1,’12 


























' "TA360 N D9 U13"+"TA140 N U5" J 
"A3 U13" + "TA50 N U5" + "TA14J 
PAINT <293,19),1 

REM FOR IMPULSE ENGINES 
+1*16,40)-(55+1*16,52),2,B 


3860 PSET (333,85) ,2: DRA! 

3870 PSET (283,30),2-.DRAW 
3880 CIRCLE (291,19),3,1: 

3890 LINE (9,40)-(53,52),2,B 
3900 FOR I - 1 TO 10: LINE 0 
3910 SOUND 500*1,1,(2+1) : NE 
3920 LINE (218,40)-(261,52),2,B 
3930 LINE (15,73)-(80,90),2,B: 1 
3940 SOUND 1000,2,11 
3950 LINE (111,81)-(133,72),2: 
3960 LINE (111,81)-(133,90),2: 
3970 SOUND 2000,2,11 


REM PHASER TOP 
REM PHASER BOTTOM 


LINE (133,72)-(155,81),2 
LINE (133,90)-(155,81),2 


3980 LINE (180,74)-(264,91),2,B 
3990 SOUND 3000,2,11 
4000 FOR I 


126),2: LINE (20+J,126)-(11+J,133),2 
26) ,2: LINE (2+J, 126)-(U+J, 120) ,2 
SE PAINT (5+J.126),0,2:SOUND 700*1,1,11 

PAINT (196,127),0,2: RETURN: REM D.C. # 
2000,1,12:SOUND 1000,1,13 

PAINT (240,127),0,2: RETURN: REM D.C. # 


4040 GOSUB 4050: GOTO 4060 


4100 LOCATE 10,3: PRINT "Available Gem 
4110 LOCATE 10,60: PRINT "Status:" 

4120 GOSUB 7250 
4130 RETURN 

414# REM ***** OXYGEN *************** 
4150 IF SS(2)=? OR TE(2)>? T HEN RETURN 
416? IF (TM-TL) < LZ T7 ' 

417? GOSUB 6?1?: FOR I 
418? COLOR 1 
419? PRINT 
42?? REM • 


* A A A A 'A " * ***** "f* A A *A~ fr** ** 


***" 


12 THEN RETURN ELSE Z$~”*** Life 
. 1 TO 15: SOUND 3???,5,1: L( 
SOUND 1000,5,1: LOCATE 6,12 
": NEXT I 

HIT ON ENTERPRISE ? **rwr********* 

4210 IF RG>20000 THEN 4340 

4220 L-INT(RND*EM)*2: IF L-2 THEN 4230 ELSE 4340 
4230 FOR I - 1 TO 3: SOUND 2000,1,15: SOUND 1000,1, 
4240 GOSUB 6010: LOCATE 6,7: PRINT CA$ NA$ " - We'r 
4250 XI-ABS(EX-KX): IF X!>18 THEN X1-36-X! 

4260 L”INT(RND*(XI/3+SP+KS+EMISS)) 

4270 REM * THIS FACTORS ENEMY TYPE AND DAMAGE INTO 
4280 IF L<(KP+MEX) THEN GOSUB 7580: GOTO 4340 
4290 FOR I - 0 TO 15: FOR J - 1000 TO 400 STEP -10? 
4300 FOR K - 15 TO 0 STEP -1: FOR L - 1300 TO 300 £ 
4310 SOUND L,.2,K: NEXT L,K: GOSUB 6010: LOCATE 6,. 
4320 PRINT "Sir .... That was a near miss!": SOUND 
4330 REM ***** VECTOR CALCULATIONS BETWEEN SPACE-< 
4340 TV-TIMER-VT 
4350 GOSUB 5210 

4360 IF SP-0 THEN X-10: GOTO 4380 
4370 IF SP=1 THEN X-10 ELSE X«25*(SP-1) 

4380 X - X * TV 

4390 AN! - EX * .1745329 

4400 EV!= X * COS(AN! ) 

4410 EH!- X * SIN(AN!) 

4420 X - KS * 25 * TV 


.» a- a ******* - ********* 


SOUND 600,1,15 


1,1: NEXT 


,SE SIGN - 1 

REM-FACTORS ENEMY VEERING IF HIT 


KD-KD+45 


W-l: GOTO 4420 



















Installs as easily 
as plugging 
in a socket 



Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 

PCSG says: Satisfaction guaranteed or your money back 

within 30 days 


As amazing as it seems you can up¬ 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap¬ 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM-f, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 

Copy a file from 
bank to bank with a 
function key 

You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func¬ 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM -I- lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank’s entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don’t 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread¬ 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex¬ 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That’s why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis¬ 
fied. Priced at $425. MC VISA COD. 

1-214-351-0564 


RDRTABLE GOMRJTER OfORT GROUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 

VISA/MASTER CARD/AM. EXP./C.O.D. 











46(3(3 IF KVI<(3 AND KH!<(3 THEN KB-KB+180: GOTO 464(3 

461(3 IF KV!>(3 AND KH!>(3 THEN 464(3 

462)3 IF KH!>)3 THEN KB-180-KB: GOTO 464(3 

463(3 KB-360-KB 

464(3 XI - PR/15! 

465(3 IF X!>1! THEN X!=l! 

466(3 X - INT(9*X!) 

467(3 KS = CINT(X*SIN(160*RG/30000*1.745329E-02))+CINT(30-KP)/(EM+l) 

468(3 IF W-2 THEN KS=KS+ME*2 

469(3 IF VV-0 THEN 473)3 ELSE IF W-2 THEN 471(3 

47(3(3 IF RG<15000 THEN 472(3 ELSE W-0: GOTO 473(3 

471(3 IF RG>15(3(3(3 THEN W-0: GOTO 473(3 

472(3 X - SIGN*EN*10: GOTO 476(3 

473(3 X! - KP/15 

474(3 IF X!>1! THEN X!-l! 

475(3 X-CINT(180*Xt) 

476)3 IF KS>2(3 THEN KS-20 
477(3 KD - KB+X+INT(RND*KS*2) 

478(3 IF KD>360 THEN KD=KD-36(3 
479(3 IF KD<1 THEN KD-1 

48(3(3 IF SS(4)=)3 THEN 484(3 ELSE 487(3: REM - NEXT 3 LINES ARE A SUBROUTINE 
481)3 LOCATE 5,67: PRINT "??????” 

482(3 LOCATE 6,7(3: PRINT "???” 

483(3 LOCATE 7,67: PRINT "???”: RETURN 

484(3 LOCATE 5,67: PRINT USING "##,###”; CINT(RG!) 

485)3 LOCATE 6,69: PRINT USING " ###”; KD 

486(3 LOCATE 7,67: PRINT INT(KS) 

487(3 KQ! - KB 

488(3 KB - KB/1(3: IF KB < 1 OR KB > 35 THEN KB - 36 
489(3 PAINT (KB(1,KX) ,KB(2,KX>) ,3 

49(3(3 CIRCLE (KB(1 ,KB) ,KB(2 ,KB)) , 3,1: PAINT (KB(1 ,KB) ,KB(2 ,KB) ) , 1 
491(3 KX=KB 

4920 REM * KP IS USED TO FACTOR ENEMY HIT ON ENTERPRISE 

4930 IF KPCll AND KF$—"YELLOW” THEN KF$=”RED COLOR 1,2: GOTO 4980 

4940 IF KP<21 AND KF$—"GREEN ” THEN KF$-”YELLOW”: COLOR 2,3: GOTO 4980 

4950 IF KP>10 AND KF$=”RED ” THEN KF$="YELLOW” : COLOR 2,3: GOTO 4980 

4960 IF KF$=”GREEN ” THEN 5030 

4970 IF KP>20 THEN KF$-"GREEN ”: COLOR 3,0: GOSUB 2830 

4980 IF K$OKF$ THEN 4990 ELSE 5030 

4990 LOCATE 10,68: PRINT KF$: COLOR 3,0: GOSUB 2830 

5000 FOR K = 5 TO 15: SOUND 1500,.7,K: NEXT K 

5010 SOUND 2000,1,15 

5020 K$=KF$ 

5030 VT-TIMER 

5040 IF W-l THEN W-2 

5050 RETURN 

5060 REM ***** HIT ON ENEMY? **** * *** ** *** ****** **** ** *******************1' 
5070 LOCATE 7,6: HIT - 0 

5080 X=INT(ABS(10*EX-KQ!)): IF X>180 THEN X-360-X 
5090 IF X > (11-SS(3)) THEN 5100 ELSE 5130 

5100 PRINT " Sir . we missed.”: MISS=MISS+2 

5110 PLAY "02 V12 T150 MF C4 02 E-16G8F16E-16D16C” 

5120 GOTO 5240 

5 1 30 IF X > (6-SS(3)) THEN 5140 ELSE 5170 

,0 PRINT " We just missed " CA$ NA$ MISS—MISS+1 

5150 PLAY ”03 V12 T150 MF C4 02 E-16G8F16E-16D16C" 

5160 GOTO 5240 

5170 PRINT ” ... DIRECT HIT - - 

5180 PLAY "03 VI2 T180 MF C4C16E16G8E16G16 04 C" 

5190 KP-KP-5: HIT-1' ZAP-ZAP+1 

5200 IF KP-0 THEN 9130 ELSE 5210 

5210 IF TIMER>TQ AND KP<30 THEN 5220 ELSE 5240 

5220 KF-KP+5 

5230 TQ-TIMER+QT 

5240 RETURN 

5250 REM ************ ENTERPRISE BEARING ********************************** 
5260 IF(EX-1) THEN EB-36 ELSE EB-EX-1 
5270 GOTO 5290 

5280 EB-EX+1: IF(EX=36) THEN EB-1 
5290 PS-3: PLAY "V10T255O5F" 

5300 PSET (333,85),PS 

5310 IF (EX>24) THEN NX-EX-24: GOTO 5350 
5320 IF (EX>12) THEN NX-EX-12: GOTO 5340 

5330 ON EX GOTO 5360,5370,5380,5390,5400,5410,5420,5430,5440,5450,5460,5470 
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534? ON NX GOTO 548?,549?,55??,551?,552?,553?,554?,555?,556?,557?,558?,559? 
535? ON NX GOTO 56??,561?,562?,563?,564?,565?,566?,567?,568?,569?,57??,571? 
536? DRAW "TA35? N D9 013"+"TA13? N 05"+"TA21? 05": GOTO 572? 

537? DRAW "TA34? N D9 013"+"TA12? N 05"+"TA2?? U5": GOTO 572? 

538? DRAW "TA33? N D9 U13"+”TA11? N U5''+"TA19? 05": GOTO 572? 

539? DRAW "TA32? N D9 013”+ ,, TA1?? N U5"+"TA18? U5": GOTO 572? 

54?? DRAW "TA31? N D9 U13"+"TA9? N U5"+"TA17? 05": GOTO 572? 

541? DRAW "TA3?? N D9 013"+”TA8? N 05"+"TA16? 05": GOTO 572? 

542? DRAW "TA29? N D9 D13"+"TA7? N 05"+"TA15? 05": GOTO 572? 

543? DRAW "TA28? N D9 013"+"TA6? N 05"+"TA14? 05": GOTO 572? 

544? DRAW "TA27? N D9 013"+"TA5? N 05"+”TAl3? 05": GOTO 572? 

545? DRAW "TA26? N D9 013"+"TA4? N 05"+"TA12? 05": GOTO 572? 

546? DRAW "TA25? N D9 013"+"TA3? N 05"+"TAll? 05": GOTO 572? 

547? DRAW "TA24? N D9 013”+"TA2? N 05”+"TAl?? 05": GOTO 572? 

548? DRAW "TA23? N D9 013”+"TA1? N 05"+”TA9? 05”: GOTO 572? 

549? DRAW "TA22? N D9 013"+"TA36? N 05"+”TA8? 05": GOTO 572? 

55?? DRAW "TA21? N D9 013"+"TA35? N 05"+"TA7? 05": GOTO 572? 

551? DRAW "TA2?? N D9 013"+"TA34? N 05"+"TA6? 05": GOTO 572? 

552? DRAW "TA19? N D9 013"+"TA33? N 05"+"TA5? 05": GOTO 572? 

553? DRAW "TA18? N D9 013"+"TA32? N 05"+"TA4? 05": GOTO 572? 

554? DRAW "TA17? N D9 013"+"TA31? N 05"+"TA3? 05": GOTO 572? 

555? DRAW "TA16? N D9 013"+"TA3?? N 05”+"TA2? 05": GOTO 572? 

556? DRAW "TA15? N D9 013”+"TA29? N 05"+"TAl? 05": GOTO 572? 

557? DRAW "TA14? N D9 013"+"TA28? N 05"+"TA36? 05": GOTO 572? 

558? DRAW "TA13? N D9 013”+”TA27? N 05"+"TA35? 05": GOTO 572? 

559? DRAW "TA12? N D9 013"+"TA26? N 05"+"TA34? 05": GOTO 572? 

56?? DRAW "TA11? N D9 013"+"TA25? N 05”+"TA33? 05": GOTO 572? 

561? DRAW "TA1?? N D9 013"+"TA24? N 05"+"TA32? 05": GOTO 572? 

562? DRAW "TA9? N D9 013”+"TA23? N 05"+"TA31? 05": GOTO 572? 

563? DRAW "TA8? N D9 013”+"TA22? N 05"+"TA3?? 05": GOTO 572? 

564? DRAW "TA7? N D9 013"+"TA21? N 05"+"TA29? 05": GOTO 572? 

565? DRAW "TA6? N D9 013"+"TA2?? N 05"+"TA28? 05": GOTO 572? 

566? DRAW "TA5? N D9 013"+"TA19? N 05"+"TA27? 05”: GOTO 572? 

567? DRAW "TA4? N D9 013"+”TA18? N 05"+"TA26? 05”: GOTO 572? 

568? DRAW "TA3? N D9 013"+"TA17? N 05"+"TA25? 05": GOTO 572? 

569? DRAW "TA2? N D9 013”+"TA16? N 05"+"TA24? 05": GOTO 572? 

57?? DRAW "TA1? N D9 013"+”TA15? N 05"+"TA23? 05”: GOTO 572? 

571? DRAW "TA? N D9 013"+"TA14? N 05"+"TA22? 05" 

572? IF (PS - 2) THEN 574? 

573? PS - 2: EX - EB: GOTO 53?? 

574? RETORN 

575? REM *** ** SHIELDS * ** *** * ************** ** ** * * * ** * ****** * *** * * *** * *** ** 
576? GOSOB 599?: LOCATE 5,7: PRINT MS$ L0$: IF SH-? THEN 597? 

577? IF SH-1 THEN 579? 

578? FOR I - 12 TO 8 STEP -1: SOOND 666,1,1: NEXT I: PAINT (6?,8?),3: PR-PR+2 
579? FOR I » 8 TO 4 STEP -1: SOOND 666,1,1: NEXT I: PAINT (25,8?),3: PR-PR+2 
58?? SH-? 

581? LOCATE 7,7: PRINT "Sir, Shields deactivated.": GOTO 598? 

582? GOSOB 599?: LOCATE 5,7: PRINT MS? RA$: IF SH-2 THEN 597? 

583? IF SD=? THEN 585? ELSE LOCATE 7,7: PRINT SR? "Shields" AD? 

584? GOSOB 615?: GOTO 865? 

585? IF PR>1? THEN 587? 

586? LOCATE 7,7:PRINT CA? we have no more shield power!":GOTO 584? 

587? IF SH-1 THEN 591? 

588? LINE (64,87)-(17,87),?:LINE (17,87)-(17,76),?:LINE (17,76)-(64,87),? 

589? FOR I - 4 TO 8:SOOND 666,1,I:NEXT I:PAINT (25,8?),?:PR-PR-2:SH-1 
59?? IF SD-1 THEN 593? 

591? IF PR>8 THEN 593? ELSE LOCATE 7,7: PRINT "Only 5?% Shield activation." 
592? GOTO 595? 

593? LINE (31,76)-(78,76),?:LINE (78,76)-(78,87),?:LINE (78,87)-(31,76),? 

594? FOR I = 8 TO 12:SOOND 666,1,I:NEXT I:PAINT (6?,8?),?:PR-PR-2:SH-2 
595? IF SD-1 THEN RETORN 

596? LOCATE 7,7: PRINT "Shields FIRM.": GOTO 598? 

597? LOCATE 7,7: PRINT CA? RP?: GOSOB 615? 

598? GOSOB 618?: RETORN 

599? REM ***** ZAP SCREEN ** ** ************** * *** *** * ** *************** **** * * 

6??? SOOND 5??,1,8 

6?1? FOR I - 5 TO 7: LOCATE 1,3 

6?2? PRINT " 

6?3? NEXT I: RETORN 

6?4? REM ***** BLAST/LAONCH RANGE/HIT *** ** ** * ** * ***** * * * * * ***** * ******* * 
6?5? X-? 

6?6? IF X? - "L" THEN 6?7? ELSE 6?9? 

6?7? IF RG>2???? THEN 6?8? ELSE 614? 
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FINALLY, 

A MEMORY RESIDENT 
TIME AND BILUNG 
SYSTEM 1 

*0 H *0 m ■■ ■ W ■ ■ TIM6SLIPS times your activities right at your desk 

with pop-up "stopwatch" screens. And it keeps 
track of your expenses. TIM6SUPS also allows quick batch entry of time sheets. Then TIMESUPS 
automatically generates bills your way with user-definable billing phrases. 


FINALLY, TIME-BILL SOFTWARE THAT GENERATES BUSINESS REPORTS, FINANCIAL REPORTS 
AND GRAPHS. TIM6SUPS converts your time records into analytical tools that help you manage 
precious resources. 


FINALLY, MENU DRIVEN TIME-BILL SOFTWARE. And TIM6SLIPS is written in plain English, with 
on-line help and telephone support at no additional cost, so you'll never be lost. 


FINALLY, AFFORDABLE TIME-BILL SOFTWARE. It's the 



only complete system for under $100. 

With a 30-day money back guarantee to boot. 

►timeslips^ 

THE SOFTWARE THAT FITS THE BILL 
FINALLY! 

IBM PC/XT/AT compatible. 


To order toll-free, call 1-800-225-5669. For more information on 
TIM6SUPS, call North Edge Software Corp. directly at (617) 468-7358. 

□ Yes, I am finally convinced that I have found the software that 
fits the bill. 

Please rush me_copies of TIMCSUPS at $99.95 each 

plus $7.00 s/h (Mass, residents add $5.00 tax) for a total of $_ 

□ Enclosed is my check with this coupon. 

□ Please charge to my Visa_M/C_ Expiration_ 

Card #_ 

□ I'd like to get more information on TIM6SUPS, the software that fits the bill. 

Name_ 


Company- 

Address- 

City- I 

| State_Zip- | 

Phone_ I 

NORTH EDGE SOFTWARE CORP., PO BOX 286, HAMILTON, MA 01936 


.north edge. 

_software_ 

_corp_ 


PO BOX 286 HAMILTON, MASS. 01936 
617-468-7358 

To order toll-free call 800-225-5669 
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6825 ? 
6830 
6840 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 


IF GO-1 THEN RETURN 

RG—25000: VT-TIMER: KH!-0: KV1-25000: KD=1: KS=3: GOTO 7080 
FOR K - 1 TO 12: FOR J - 1 TO 5: SOUND 25*K*I,.05,K: NEXT J: NEXT K 
GOTO 6880 

FOR K =12 TO 1 STEP -1: FOR J = 1 TO 5 
SOUND 25*K*I,.05,K,2: NEXT J: NEXT K 
NV=(SX+2)/2: SOUND ON: NOISE 2,NV,32000: RETURN 
REH Ictn***** SOUND FOR HYPER-WARP *n**Vrft**^***r^^ 

GOSUB 5990 

FOR I * 1 TO 10: COLOR 2 

LOCATE 6,15: PRINT "H Y P E R - D R IV E" 

FOR J = 400 TO 1000 STEP 100 
SOUND J, .2,11 
M - 900 - J 
SOUND M,.2,11,1 
NEXT J 

LOCATE 6,15: PRINT ” 

FOR K = 1000 TO 400 STEP -100 
SOUND K,.2,11 
L = 100 + K 
SOUND L,.2,11,1 
NEXT K 
NEXT I 

COLOR 3: GOSUB 2830 

LOCATE 6,15: PRINT ’’STARBASE 6 - dead ahead." 

TL-TIMER: RETURN 

IF GO-1 THEN RETURN ELSE GOSUB 6180: RETURN 
REM ***** PHASERS *rAr*****^^ 

GOSUB 5990: LOCATE 5,7: PRINT MZ$ "Energize Phasers.”:LOCATE 7,7 
IF PD-1 THEN PRINT SR$ PB$ AD$: GOSUB 6150: GOTO 7240 
IF PA=1 THEN 7230 

IF PR<4 THEN PRINT WR$: GOSUB 6180: GOTO 8650 

LINE (118,81)-(133,76),0: LINE (133,76)-(148,81),0: REM FILL PHASER 
LINE (118,81)-(133,85),0: LINE (133,85)-(148,81),0: PAINT (125,81),0 
FOR I = 1000 TO 10000 STEP 1000: SOUND 1,1,10: NEXT I 
PR-PR-2: IF PD=1 THEN RETURN 

PA-1: PRINT CA$ ”- Phasers at FULL power.”: GOTO 7240 
GOSUB 5990: LOCATE 5,7: PRINT MZ$ ’’Deactivate Phasers. 

PAINT (125,81),3,2: PR=PR+2: PA=0 
FOR I = 10000 TO 1000 STEP -1000: SOUND 1,1,10: NEXT I 
LOCATE 7,7: PRINT CA$ ’’Phasers are deactivated.”: GOTO 7240 
LOCATE 7,7: PRINT CA$ NA$ RP$: GOSUB 6150 
GOSUB 6180: RETURN 
R£M ***** PHOTON ARM A A A A A A 
FOR I - 1 TO PT: CIRCLE (1*8+178,82),2.2,2,,,2 
PAINT (1*8+178,82),0,2: SOUND 1234,1,9: NEXT I: PO=l 


IF PA=0 THEN 7230 


BLAST > A’ A ^^"A-A" A -A^-AtWc A~A-A-A-A~A"A-A-A-A-A-j 


GOSUB 6JJ4JJ: IF X=1 THEN 7430 




RETURN 
REM **** 

QQ-1 

GOSUB 599(J: X$=-”B": 

IF PD-1 THEN 7420 

IF PA=0 THEN 7410 , r 

FOR I - 500 TO 5000 STEP 100:SOUND I,.1,15:NEXT I:SOUND 3000,-2,15 

LOCATE 5,14:PRINT "*** PHASER - BLAST ***" 

FOR I - 1 TO 31 STEP 2: X = 375/(24+1) 

FOR J — 500 TO 2500 STEP 500:SOUND J,.1,X: NEXT J 
FOR K - 2500 TO 500 STEP -500: SOUND K, .1,X: NEXT K 
NEXT I 

GOTO 7430 

- Phasers have not been energized.": GOTO 6150 
" PB$ AD?: GOTO 6150 


tvLM 

**** * LAUNCH , ASWc A -A^-A"At^^ irk ic icfrk-trk-kttrk*k VcA VcA •>' k 


GOSUB 5060 

LOCATE 6,4: PRINT CA$ 

LOCATE 6,4; PRINT CA$ 

RETURN 

REM , , , _ , .... 

GOSUB 5990: X$="L”: GOSUB 6040: IF X=1 THEN 7570 
IF TD-1 THEN 7560 

IF PO-0 THEN 7550 , ■ ■ 

IF PT=0 THEN LOCATE 6,7: PRINT CA$ Torpedos are all gone!”: GOTO 6150 
FOR K=0 TO 15:SOUND K*1000,.2,15:SOUND K*250,.2,15:NEXT K:SOUND 5000,2,15 
LOCATE 5,13:PRINT ”*** TORPEDO - LAUNCH ***" 

PX=PT: GOSUB 7520: GOTO 7530 

FOR I - PT TO PX STEP -1: PAINT (1*8+178,82),3: NEXT I: RETURN 
FOR I = 15 TO 0 STEP -.I:SOUND 7000,.1,1: SOUND 5000,.1,1:NEXT I 
PT-PT-1: GOSUB 5060: GOTO 7570 

LOCATE 6,6: PRINT CA$ ” - Torpedos have not been armed.”: GOTO 6150 
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861? FOR I 
862? PRINT 
863? FOR I 
864? FOR I 


83?? RETURN 

831? A$-"those Shields!’*: GOSUB 828?: IF BAD-1 THEN RETURN 
832? IF SD-? THEN 862? 

833? IF TS>? THEN 86?? ELSE TS-TIMER 
834? PAINT (6?,8?),2,3 
835? IF SH-? THEN PAINT (25,8?),2,3 
836? GOTO 866? 

837? AS—"our Weapons!": GOSUB 828?: IF BAD-1 THEN RETURN 
838? IF PD-? AND TD-? THEN 862? 

839? IF PD-? THEN 842? 

84?? IF PD-1 AND TP-? THEN TP-TIHER: PAINT (125.81).2.3: GOTO 866? 

841? IF TD-? THEN 86?? 

842? IF TT>? THEN 86?? ELSE TT-TIMER 

843? FOR I - 1 TO PT: CIRCLE (1*8+178,82),2,2,2,,,2 

844? PAINT (1*8+178,82),2: SOUND 1234,1,9: NEXT I: GOTO 866? 

845? A$-"the Crystals!”: GOSUB 828?: IF BAD-1 THEN RETURN 
846? IF CD-? THEN 862? 

847? IF TC>? THEN 86?? ELSE TC-TIMER 
848? PAINT (196,127),2,3 
849? IF DY-1 THEN PAINT (24?,127),2,3 
85?? GOTO 866? 

851? A$—"Ergosystems ! ”: GOSUB 828?: IF BAD—1 THEN RETURN 
852? IF YD-? THEN 862? 

853? IF SS(6)-1 THEN SS(1)-1 

854? X-?: FOR I - 1 TO 5: IF SS(I)-1 THEN 855? ELSE 856? 

855? IF TE(I)>? THEN 856? ELSE TE(I)-TIHER:X-l:PAINT (5+1*21,126),2:GOTO 866? 
856? NEXT I: IF SS(6)-? THEN 858? 

857? IF TE(1)>? THEN 858? ELSE TE(1)-TIKER: X-l 
858? IF X-? THEN 86?? ELSE 866? 

859? PRINT WR$: GOSUB 615?: GOTO 865? 

86?? PRINT "Work party already dispatched - Sir.” 

- 1 TO 1?: SOUND 4??+I*2?,l,(5+1): NEXT I: RETURN 
"But Sir, Ship monitors read normal!" 

- 1??? TO 7?? STEP -1??: SOUND 1,1,11: NEXT I 

- 1 TO 3: SOUND 12??,2,11: NEXT I 
865? SOUND 2???,1?,1?: RETURN 

866? LOCATE 7,7: PRINT "Yes Sir, We're on our way!" 

867? PLAY "MBV1?L16T25504C.FGEDC+FFG-CEA." 

868? IF PLAY (?) - ? GOTO 87?? 

869? GOTO 868? 

87?? PR-PR-2: GOSUB 618?: RETURN 

871? REM * * *** FIX * * * ********* **** ** * ***** * **** * * * * **** * * * ** * A * * * * A * ****** 

872? X-TIMER-EE 

873? IF TE(2)>? THEN 88?? 

874? IF TS>? THEN 883? 

875? IF TE(1)>? THEN 885? 

876? IF TT>? THEN 888? 

877? IF TP>? THEN 892? 

878? IF TC>? THEN 895? 

879? FOR I - 3 TO 5: IF TE(I)>? THEN 898? ELSE NEXT I: RETURN 
88?? IF (TE(2)+12)>TIMER THEN 874? ELSE TE(2)-?: SS(2)-? 

881? FOR I - 1 TO 6: IF SS(I)-1 THEN 882? ELSE NEXT I: YD-? 

882? A$-LFS: 1-2: GOSUB 9?6?: GOTO 91?? 

883? IF X<(TS+7?) THEN 875? ELSE TS-?: GOSUB 588?: SD-? 

884? A$—"All Shields": GOTO 91?? 

885? IF X<TE(1) THEN 876? ELSE TE(1)-?: SS(1)-?: SS(6)-? 

886? FOR I - 1 TO 6: IF SS(I)-1 THEN 887? ELSE NEXT I: YD-? 

887? AS-HLS: I-l: GOSUB 9?6?: GOTO 91?? 

888? IF X<(TT+5) THEN 877? ELSE TT-?: PT-LP: TD-? 

889? FOR I - 1 TO PT: PAINT (1*8+178,82),3: NEXT I 
89?? GOSUB 725?: TD-? 

891? A$-TT$: GOTO 91?? 

892? IF X<(TP+1?) THEN 878? ELSE TP-?: GOSUB 714?: PD-? 

893? PA-1 

894? A$-PB$: GOTO 91?? 

895? IF X<TC THEN 879? ELSE TC-?: CD-? 

896? PAINT (196,127),3: PAINT (24?,127),3: PR-PR+CDPR*(3-DY): DY-3 
897? GOSUB 4?5?: GOSUB 4?8?: A$-"Ship's Engines": GOTO 91?? 

898? FOR K - I TO 5: IF X<TE(K) OR TE(K)-? THEN NEXT K ELSE 9??? 

899? RETURN 

9??? I-K: TE(I)-?: SS(I)-?: J-I: GOSUB 9?6? 

9?1? FOR K - 1 TO 6: IF SS(K)-1 THEN 9?2? ELSE NEXT K: YD-? 

9?2? ON (J-2) GOTO 9?3?,9?4?,9?5? 

9?3? A$—TS$: GOTO 91?? 
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9040 A$-LS$: GOTO 910? 

9050 A$=CM$: GOTO 9100 

9060 J-I*21: PAINT (5+J,126),3: SOUND 750,10,10 
9070 LINE (11+J,120)-(20+J,126),2: LINE (20+J,126)-(11+J,133),2 
9080 LINE (11+J,133)-(2+J,126),2: LINE (2+J,126)-(11+J,120),2 
9090 PAINT (5+J,126),0,2: RETURN 

9100 GOSUB 6010: LOCATE 6,7: PRINT "Scotty here, " A$ "are fixed." 

9110 FOR I - 1 TO 10: SOUND 1000,1,10: SOUND 700,1,10: NEXT I 
9120 PR-PR+2: GOSUB 6180: RETURN 

9130 REM A » A AAA *■*'*•»*■ * ■* ** WIN / LOOSE *■* ■ ** •*** *** A-A-A - A - A a a AAAA - A - AA AA - A - A -ArA^+A+rtoWoV 
9140 SCREEN 0: COLOR ,1,4: CLS: COLOR 28,8: SOUND ON: PLAY "L4MN”: LOCATE 2,35 
9150 IF KP-0 THEN WL-1 ELSE WL-0 
9160 TIME - TIMER - TIMEX 

9170 RATE - INT(WL*1000+ZAP*20-TIME-300*HYPER-200*TORMIS-MISS*75+10*PR-20*KP) 

9180 IF WL-0 THEN 9200 

9190 PRINT " YOU WIN ! ”: PLAY "T250MFO3V13 C8E8G8O4C8P8O3C8O4T50C.": GOTO 9210 
9200 PRINT M YOU LOSE ": PLAY "T175MF01V12 G.G.G16GFE-DC." 

9210 COLOR 11,1: LOCATE 3,35: PRINT "_" 

9220 LOCATE 6,15:IF WL-0 THEN 9240 

9230 PRINT "Congratulations " CA$ NA$ " GOTO 9250 

9240 PRINT CA$ NAS ", your tribunal has convened 

9250 FOR I - 1 TO 50: SOUND 1*100,-5,10: NEXT I 

9260 LOCATE 8,15:PRINT "Standby for your Efficiency Rating 

9270 FOR I - 10 TO 1 STEP -1: SOUND 1000*1,5,11: SOUND 1500*1,5,12: NEXT I 

9280 COLOR 14,8:LOCATE 10,30: PRINT "»> ” RATE " «<": COLOR 13,1 

9290 IF WL-0 THEN 9360 

9300 LOCATE 12,10:IF RATE < 300 THEN 9330 ELSE IF RATE < 1 THEN 9370 
9310 PRINT "If you continue this outstanding performance,": LOCATE 13,10 
9320 PRINT "the Federation will surely promote you to Admiral !": GOTO 9410 
9330 PRINT "The Federation reviewed this mission and recommends": LOCATE 13,10 
9340 PRINT "that you increase your life insurance before the next mission." 

9350 GOTO 9410 

9360 LOCATE 12,10:IF RATE < -499 THEN 9390 

9370 PRINT "Starfleet Command has notified all Federation agencies":LOCATE 13,10 
9380 PRINT "that you are hereby on probation unitl further notice.": GOTO 9410 


□ BASIC BUSINESS 


Basic Business II $'?J,Q.95 

MS-DOS or PC-DOS ^^7 

Basic Business I $ QQ 95 

Accounting and Business Management Software ms-dos, pc-dos or cp/m OJr' 

Advanced Color On-Screen-Help Windows 


$149.95 as of 
July-I, 1986 


N ever again wonder what to do next, or 
how to do it Basic Business is the only 
advanced accounting system that provides a 
complete windowed help and index system. 
Answers to your questions are as close as the 
touch of a key. 

Not another cigar box system, Basic Business 
II offers features equivalent to those found in 
systems costing hundreds more. Accounting 
has never been easier or more complete. 

Need less help? Considere the popular Basic 
Business I. It has most of the features found in 
Basic Business II without the windows and 
help, and is upward compatible should your 
needs change. 

Consider the flexibility of Basic Business. You 
can generate over 300 reports or use the optional 
dBase File Formats for ultimate information 
gathering and reporting. Transfer information 
to a database or spreadsheet program for total 
custom reporting ability. Source code is also 
available for those companies requiring 
customization or having specialized accounting 
needs. 

Minimum Hardware Requirements: 80 X 24 CRT, 
2-360K. floppies, 132 column printer, 64it CP/M 2.x, 128K 
MS-DOS or PC-DOS 2.0, PC/XT/AT or compatible. 

30 day money back guarantee if all claims and features listed in 
this ad are not true. MasterCard and VISA welcome. Add 
$2.50 for shipping. CA residents add 6% sales tax. 

Optional Products 

Polntof-Purchase Module... $99.95 

dBASE ll/lll File Formats ... $29.95 

some disk formats slightly higher 


with computerized indexing into the users manal 


PARTIAL LIST OF FEATURES 


General Information 

• All modules are menu driven / password protected 

• Unlimited data entry in all modules 

• Prints hundreds of detailed management reports 

• Superior documentation for ease of use 

• Stock or preprinted forms available 

• Supports user defined notes / comments on all forms 

• All modules completely integrated 

General Ledger 

• Unlimited user defined Chart of Accounts 

• Prints all standard financial reports 

• Up to 99 user-defined departments 

Accounts Receivable & Billing 

• Open item or balance forward 

• Verifies customer credit limit at invoice entry 

• Supports service or inventory billing 

• Prepares customer statements with dunning notes 

• Maintains full cash flow analysis 

• Prepares mailing labels and customer lists 

Accounts Payable 

• Cash disbursement management for all vendors 

• Supports hand written checks 

• Automatically posts recurring invoices monthly 

• User defined aging periods 

• Prints vendor mailing labels and lists 

Payroll & Job Costing 

• Supports labor related job costing 

• Maintains federal, state and local tax tables 

• Handles vacation and sick leave time 

• Prints W-2 forms and 941 information 


Inventory 

• Up to 12 digit alphanumeric part numbering 

• Supports standard / average / suggested resale costing methods 

• Integrated with Sales and Purchase Order systems 

Purchase Order 

• Maintains PO and Inventory files 

• Prints confirming POs 

• Prints price variance report by part number 

• Maintains vendor purchase history 

Order Entry & Sales Analysis 

• Supports ordering and shipment of stock and non-stock items 

• Handles partial shipments / cancellations / changes of any SO 

• Automatic credit checking during SO entry / invoicing / billing 

• Provides extensive sales analysis reporting 

• Maintains MTD billing and booking totals 

• Line item/total invoice discounts during SO entry and/ or invoicing 

Point of Purchase (optional) 

• Entry of invoices posts to all pertinent modules 

• Invoices stock / non-stock items 

• Line item discount and tax application 

• Verifies customer credit limits 

• Supports cash/ check/credit card / payment on account and returns 

• Controls electronic cash drawer 


CALL TODAY 


Trademarks: CP/M - DRI; dBASE - Ashton Tate; 
MS-DOS - Microsoft; PC-DOS - IBM 


n\ 


National ( 800 ) 821-8778 
California ( 800 ) 521-7182 

Hours: Mon - Frf 8 am - 5 pm PDT 

DEALER INQUIRIES WELCOME. 

aifliPflh 3154-F E ta Palma Ave 
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LONESTAR SOFTWARE PROUDEV PRESENTS 



MENU 
o ;• e*:i 
R j pc 

t y xt 

C > i r 
y y r-t 

Qu if 


UPT> C L«_« =j d S ■=*■=* P r* i n t D 


enu 


CREATE 
YOUR OWN 
BANNERS, LOGOS, 
GRAPHS, CHARTS, 
AND MORE! 


A 1ST I NTERACT I \2E GRAPHICS EDITOR 

EOR THE MODEL 1 OO 24 K 


FEATURES: 
’•‘USER FRIENDLY 
’•‘ON SCREEN MENU 
*CURSOR CONTROL 
SAVEABLE DISPLAY 
’•‘PRINT OPTION 
’•‘TEXT EDITOR 
m FAST MACHINE CODE 


’•‘SKETCH MODE 
’•‘STRETCHABLE RECTANGLE 
*•* STRETCHABLE SEGMENTS 
’•‘CIRCLE OPTIONS 
’•‘ANGLE LOCKS 
’•‘FILL PATTERNS 
’•‘CONSTANT X, Y READOUT 


••Coming soon for the MODEL 200! 


$4 9.95 


To order call: 1-800-835-2246 ext.298 
In Kansas 1-800-362-2421 ext.298 
VISA & MASTERCARDS WELCOME 


LONESTAR SOFTWARE! 
& IC DESIGN CO. HOUSTON,TEXAS 
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Feature 


1000/ 1200/ 2000/ 3000 


T he metric system is showing 
up in more places these days 
— the grocery store, the gas 
station, lumber yard and in 
my children’s homework ! 
Accurate measurements are easier to 
make in base 10 (the base number for 
our monetary system and the metric 
system) and dividing things up is 
simpler. It is much easier to find the 
center of a 120 cm board than the center 
of a 3-foot ll 7 / 32 -inch board! I use 
metric measurements for all of my 
woodwork and gardening projects with 
a substantial reduction in measurement 
errors. The problem was that the local 
supply houses sell materials in board 
feet and ounces instead of meters and 
liters! You guessed it — I moved my 
Tandy 1000 and my copy of Turbo 
PASCAL a little closer to my shop! 

The Metric Calculator supports 36 
metric-to-English and English-to- 
metric conversions in six categories. 
The entire program is menu driven and 
selections are made with one keystroke. 
Once a specific conversion is selected, it 
can be repeated over and over until the 
letter X is entered instead of a value. 
Pressing the ESC key at any menu re¬ 
turns to the main menu and will abort 
the program from the main menu. 

Printed results can be supported by 
adding this line in the Main Program 
segment (see documentation in the 
program listing): 

Writeln(1st,' 

',Ussroar:5:5,DrigId,' = 

',Answer:5:5,Conld); 

Note the operation values (OpVRL) 
for the temperature conversions are 
actually flags that trigger the use of 
specific formulas. All of the other 
□pVals are used as a factor in a simple 
multiplication formula (see the DoThe 
Calculation procedure). The value 
assigned to the While . . .do statement 
in the main program segment can never 
be entered by the user, this forces the 


Bob Mills is a Master Sergeant in the 
United States Air Force working at 
Walter Reed Army Medical Center, 
Washington, D.C. He has written nu¬ 
merous programs for his USAF duty 
sections and is the president of MS- 
AGES, a Frederick , Maryland user's 
group . 


Metric" 

Calculator 


By Bob Mills 



loop to continue until the user enters the the program to run. 
letter X instead of a value. The program If you have any questions, drop me 
listing is complete, no special include a line at 300 Heather Ridge Drive, 
files or compiler directives are required. Frederick, MD 21701. The program is 
The remarks in braces are for clarity also on this month’s PCM ON disk. My 
only, you don’t need to type them in for handle on Delphi is BOBMILLS. □ 
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The listing: 

( 1ck*rM*"k * *k-1cirk1rk A A A A A k hrk A~Ark ft A A k'k'A~trick1c*rk* 

METRIC CALCULATOR 
By: Bob Mills 
Copyright 1986 

ftVrftftr»Wrftft^ftT^^ ft ft A A " A"A"A"A A -A "A -i"A"A A A A'A"A"A-A-A-* ) 

program MetricCalculator; 

(*** DEFINE GLOBAL VARIABLES HERE ***} 
type 

Titles=»string[4jJ] ; 
var 

Choice,ch:char; 

OpVal, Answer, UserVar:real; 

ColorFlag:boolean; 

Origld, Conld, TitleId:Titles; 

CalcCode,x,y:integer; 

UserString:string[20]; 

label PopToHere; 

{ Set up for Color or Black and White Monitors } 
procedure ColorYesNo(var ColorFlag:boolean); 

begin 

ClrScr; 

TextMode (bw4{J) ; 
gotoXY(l,12); 

Writeln(’Are You Using A Color Monitor Y or N ?'); 
repeat 

read(kbd,ch); 
ch:=UpCase(ch); 
until ch in [ f Y»,'N’l; 

Case ch of 

•Y 1 : begin 

ColorFlag:=true; {Bright White on Blue} 

TextMode(c8j2f) ;TextColor(15) ;TextBackground(l) ; 
end; 

'N T : begin 

ColorFlag:=false; {Light Gray on Black) 

TextMode(bw80);TextColor(7);TextBackground(0); 
end; 

end; {Case) 

end; {Procedure ColorYesNo) 
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User Installable! Over 100 Channels! 
^ Uncut Movies! Specials! Sports! 
Htv News! Weather! Music Videos! 


Entire 

System 


■ Totally Automatic System With 872 -Ft. 

Dish, Receiver and Wireless Remote Control 

■ Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 

■ Descrambler Ready 


U.L. 

Approved 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


Now you can enjoy it all! 24-hour non-stop entertain¬ 
ment that you simply can’t get from local TV, cable, and 
even video tape! You’ll see the hottest stars, recent un¬ 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You’ll see exciting family-oriented pro¬ 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


( 817 ) 825-4027 


NOCONA ELECTRONICS 


Box 593 • Nocona, TX 76255 


UPS Shipping 


Discover a Whole New World 
of TV Entertainment! 

SATELLITE SYSTEM 






























































procedure NormColor; { Return to normal colors } 
begin 

if ColorFlag THEN begin 

TextBackground(l);TextColor(15); { Bright White on Blue } 
end else begin 

TextBackground(0);TextColor(7); ( Light gray on Black ) 
end; 

end; { procedure } 

procedure HighColor; { Set colors for highlights } 
begin 

if ColorFlag then begin 

TextBackground(4);TextColor(15); ( Bright White on Red } 
end else begin 

TextBackground(0) ; TextColor(15) ; { Bright White on Black } 
end; 

end; { procedure } 


procedure RevColor; { Set colors for Reverse Video } 
begin 

if ColorFlag then begin 

TextBackground(15);TextColor(1); { Blue on Bright White } 
end else begin 

TextBackground(15);TextColor(0); { Black on Bright White } 
end; 

end; ( procedure } 


( Wait for a key to be pressed and then proceed } 
procedure TapAKey; 


begin 

ch:=chr(l); {set ch to nonkeyboard character} 
repeat; 
read(kbd,ch); 
until ch o chr(l); 
end; { TapAKey } 


{ Abort program execution } 

procedure Stop; 

begin 

ClrScr; 

TextMode(bw80); 
gotoXY(l,12); 

Writeln('Program execution has been aborted. 1 ); 

Writeln('Thank You for using the Metric Calculator ! Bob Mills.... 1 ); 
Halt; 

end; ( Stop procedure } 


procedure TitleScreen; 
begin 
ClrScr; 

gotoXY(28,3);HighColor; 

write ( '■ ) ;gotoXY(28,4) ; 
write(' METRIC CONVERSIONS ’);gotoXY(28,5); 
write ( 1 • ) ;NormColor; 

gotoXY(30,7);write('Version 1.00.00'); 

gotoXY(36,10);write('By:'); 

gotoXY(33,12);write('Bob Mills'); 

gotoXY(26,15);write('300 Heather Ridge Drive'); 

gotoXY(28,16);write('Frederick, MD 21701'); 

gotoXY(32,17);write('301-695-5228’); 

gotoXY(21,21) ;write( ' «< —|—»> '); 

gotoXY(3,24);RevColor;write('Press any key ->');NormColor; 
TapAKey; 

end; {of procedure} 


{ MENU FOR LENGTH CALCULATIONS } 

procedure LengthCalc(var CalcCode:integer;var ch:char); 
begin 
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ch:=chr(l);TitleId:-’ LENGTH 
clrscr; HighColor; 

gotoXY(5,1);write(' «< LENGTH CONVERSIONS: »> '); NormColor; 

gotoXY(20,6);write(' A = CENTIMETERS to INCHES'); 

gotoXY(2(J,8);write(' B - INCHES to CENTIMETERS'); 

gotoXY(20,10);write(' C = METERS to FEET'); 

gotoXY(20,12);write(' D - FEET to METERS'); 

gotoXY(20,14);write(' E = YARDS to METERS'); 

gotoXY(20,16);write(' F - METERS to YARDS'); 

gotoXY(20,18);write(’ G - KILOMETERS to MILES'); 

gotoXY(20, 20) ; write (' H =■ MILES to KILOMETERS'); 

repeat 

gotoXY(10,23);RevColor; 

vrite( T --> Which conversion would you like to do ? '); 
NormColor; 

read(kbd,ch); ch : = UpCase(ch); 
until ch in ['A'..'H',CHR(27) ]; 

Case ch of 

'A' : CalcCode:=l; 

’B’ : CalcCode: =2; 

'C' : CalcCode:=3; 

'D 1 : CalcCode:=4; 

*E 1 : CalcCode:=5; 

T F' : CalcCode:=6; 

1 G f : CalcCode:*7; 

'H' : CalcCode:*8; 
end ( of Case ); 
end; ( of procedure } 


( MENU FOR AREA CALCULATIONS ) 

procedure AreaCalc(var CalcCode:integer;var chichar); 
begin 

ch:=chr(l);TitleId:=' AREA T ; 
clrscr; HighColor; 

gotoXY(5,1) ;write(' «< AREA CONVERSIONS: »> '); NormColor; 
gotoXY(17,6);write(' A = SQ. CENTIMETERS to SQ. INCHES'); 
gotoXY(17,8);write(' B - SQ. INCHES to SQ. CENTIMETERS'); 
gotoXY(17,10);write( 1 C - SQ. METERS to SQ. FEET'); 
gotoXY(17,12);write( 1 D = SQ. FEET to SQ. METERS'); 
gotoXY(17,14);write(' E = SQ. METERS to SQ. YARDS'); 
gotoXY(17,16);write(' F = SQ. YARDS to SQ. METERS'); 
gotoXY(17,18);write(' G * SQ. KILOMETERS to SQ. MILES'); 
gotoXY(17,20);write(' H - SQ. MILES to SQ. KILOMETERS'); 
repeat 

gotoXY(10,23);RevColor; 

write(' --> Which conversion would you like to do ? '); 
NormColor; 

read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..'H',CHR(27) ]; 


Case 

ch of 

'A' 

CalcCode:=9; 

' B' : 

CalcCode:=10 

'C : 

CalcCode:=11 

'D' : 

CalcCode:»12 

'E' : 

CalcCode:=13 

'F' : 

CalcCode:=14 

'G' : 

CalcCode:=15 

'H' : 

CalcCode:=16 

end { 

of Case ); 

end; { 

of procedure 


( MENU FOR VOLUME CALCULATIONS ) 

procedure VolumeCalc(var CalcCode:integer;var ch:char); 
begin 

ch:*chr(l);TitleId:-' VOLUME '; 
clrscr; HighColor; 

gotoXY (5,1) ;write( ' «< VOLUME CONVERSIONS: »> »); NormColor; 
gotoXY(17,6);write(' A - CU. CENTIMETERS to CU. INCHES'); 
gotoXY(17,8);write(' B = CU. INCHES to CU. CENTIMETERS'); 
gotoXY(17,10);write(' C - CU. METERS to CU. FEET'); 
gotoXY(17,12);write(* D - CU. FEET to CU. METERS’); 
gotoXY(17,14);write(' E = CU. METERS to CU. YARDS'); 


June 1986 PCM 


77 











gotoXY(17,16);write(' F - CU. YARDS to CU. METERS'); 
repeat 

gotoXY(10,23);RevColor; 

writeC* --> Which conversion would you like to do ? '); 
NormColor; 

read(kbd,ch); ch : — UpCase(ch); 
until ch in ['A’..•F*,CHR<27) ]; 

Case ch of 
1 A* : CalcCode:«17; 

•B’ : CalcCode:-18; 

•C’ : CalcCode:-19; 

1 D * : CalcCode : -2J7; 

’E’ : CalcCode21; 

*F* : CalcCode:-22; 
end { of Case }; 
end; { of procedure ) 

{ MENU FOR CAPACITY CALCULATIONS } 

procedure CapacityCalc(var CalcCode:integer;var ch:char); 
begin 

ch:-chr(l);TitleId:-' CAPACITY »; 
clrscr; HighColor; 

gotoXY(5,1) ; write ( * «< CAPACITY CONVERSIONS: »> '); NormColor; 
gotoXY(17,6);write(’ A - MILLILITERS to OUNCES [U.S. Liquid]’); 
gotoXY(17,8);write(* B - OUNCES [U.S. Liquid] to MILLILITERS’); 
gotoXY(17,10) ; write (’ C - LITERS to QUARTS [U.S. Liquid]’); 
gotoXY(17,12);write(’ D - QUARTS [U.S. Liquid] to LITERS’); 
gotoXY(17,14);write( 1 E - LITERS to GALLONS [U.S. Liquid]'); 
gotoXY(17,16);write( f F - GALLONS [U.S. Liquid] to LITERS’); 
repeat 

gotoXY(10,23);RevColor; 

write(* --> Which conversion would you like to do ? '); 
NormColor; 

read(kbd,ch); ch := UpCase(ch); 
until ch in [•A’..’F’,CHR(27) ]; 

Case ch of 

’A’ : CalcCode:-23; 

’B’ : CalcCode:-24; 

’C’ : CalcCode:-25; 

’D’ ; CalcCode:-26; 

’E’ : CalcCode:-27; 

’F’ : CalcCode:-28; 
end ( of Case ); 
end; { of procedure ) 



{ MENU FOR MASS CALCULATIONS ) 

procedure MassCalc(var CalcCode:integer;var ch:char); 
begin 

ch:-chr(l);TitleId:-’ MASS ’; 
clrscr; HighColor; 

gotoXY(5,1) ; write ( ’ «< MASS CONVERSIONS: »> ’); NormColor; 
gotoXY(17,6);write(' A - GRAMS to OUNCES [Avoirdupois]'); 
gotoXY(17,8);write(’ B - OUNCES [Avoirdupois] to GRAMS’); 
gotoXY(17,10);write<’ C - GRAMS to OUNCES [Troy]’); 
gotoXY(17,12);write(’ D - OUNCES [Troy] to GRAMS’); 
gotoXY(17,14);vrite(’ E - KILOGRAMS to POUNDS [Avoirdupois]’); 
gotoXY(17,16);write(’ F - POUNDS [Avoirdupois] to KILOGRAMS'); 
repeat 

gotoXY(lJ7,23) ;RevColor; 

write(’ Which conversion would you like to do ? '); 

NormColor; 

read(kbd,ch); ch :- UpCase(ch); 
until ch in [’A’..’F',CHR(27) ]; 

Case ch of 
»A’ : CalcCode:-29; 

’B’ : CalcCode:-3?; 

’C' : CalcCode:-31; 

'D’ : CalcCode:-32; 

’E’ : CalcCode;-33; 

’F’ : CalcCode:-34; 
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end; { of procedure ) 

( MENU FOR TEMPERATURE CALCULATIONS ) 
procedure TempCalc(var CalcCode:integer;var ch:char); 
begin 

ch:-chr(l);TitleId:-’ TEMPERATURE *; 
clrscr; HighColor; 

gotoXY(5,l);write(’ «< TEMPERATURE CONVERSIONS: »> » 
gotoXY(17,12);write(' A - CENTIGRADE to FAHRENHEIT 1 ); 
gotoXY(17 f 14);write(' B - FAHRENHEIT to CENTIGRADE’); 
repeat 

gotoXY(10,2 3);RevColor; 

vrite(’ --> Which conversion would you like to do 7 
NorraColor; 

read(kbd.ch); ch :- UpCase(ch); 
until ch in [’A','B’,CHR(27) ]; 

Case ch of 

’A’ : CalcCode:-35; 

* B ’ : CalcCode:—36; 
end { of Case ); 
end; ( of procedure ) 


{ GET STRINGS AND VALUES FOR SELECTED OPERATION ) 
procedure GetParams(var Origld, Conld:Titles; 

var OpVal : Real); 

begin 

Case CalcCode of 

1 : begin 

Origld:—’ Centimeters 

Conld:-' Inches ';OpVal:-0.394;end; 

2 : begin 

Origld:-’ Inches 

Conld:-' Centimeters ’;OpVal:-2.54;end; 

3 : begin 

Origld:-’ Meters ’; 

Conld:-' Feet ’;OpVal:-3.2808;end; 

4 : begin 

Origld:-’ Feet '; 

Conld:-' Meters OpVal:-j?. 305 ; end; 

5 : begin 

Origld:-’ Meters 

Conld:-' Yards ';OpVal:- 1.£936;end; 

6 : begin 

Origld:-’ Yards '; 

Conld:-' Meters '; OpVal :-(7. 9144;end; 

7 : begin 

Origld:-’ Kilometers '; 

Conld:-' Miles ';OpVal:-0.62137;end; 

8 : begin 

Origld:-' Miles »; 

Conld:-' Kilometers ';OpVal:-1,60935;end; 

9 : begin 

Origld:-' Sq. Centimeters '; 

Conld:-' Sq. Inches ';OpVal:-j?. 1550;end; 

1? : begin 

Origld;-’ Sq. Inches •; 

Conld:-' Sq. Centimeters ';OpVal:-6.452;end• 

11 : begin 

Origld:-' Sq. Meters '; 

Conld:-’ Sq. Feet ’;OpVal:-10.764;end; 

12 : begin 

Origld:-' Sq. Feet '; 

Conld:-' Sq. Meters ' ;OpVal:-0. fl 929J2T;end; 

13 : begin 

Origld:-' Sq. Meters '; 

Conld:-' Sq, Yards »;OpVal:-l.I960;end; 

14 : begin 

Origld:-' Sq. Yards '; 

Conld:-' Sq. Meters ' ;OpVal :-JJ. 8361;end; 

15 : begin 

Origld:-' Sq. Kilometers '; 

Conld:-’ Sq. Miles ';OpVal:«£.3861;end; 

16 : begin 


; NormColor; 
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Tandy 1000 Hard Drives 

by Hard Drive Specialist 


m$mw< 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou¬ 
sands of subsystems to satisfied Radio Shack/Tandy cus¬ 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat¬ 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re¬ 
quire a memory board with DMA such as the TanPak™ 
multifunction card, or a Tandy Board, Part #25-1004. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re¬ 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Hard Disk System Features: 

: All sizes rated after formatting. 

: One secondary drive may be added. 

: Error checking and correcting controller. 

: Software drivers included. 

: Buffered seek drives for improved access time. 
: Built in power up diagnostics. 

: Plated media for long disk life. 

: Gold connectors used throughout. 

: 1 year warranty. 

: Boots directly from Hard Drive. 

: Uses Tandy 1000 MS DOS. 


10 Megabyte Internal.$ 549. 

20 Megabyte Internal.$ 749. 

42 Megabyte Internal.$1349. 

10 Megabyte External.$ 699. 

20 Megabyte External.$ 899. 

42 Megabyte External.$1495. 


Hard Drive Specialist 

16208 Hickory Knoll 
Houston, Texas 77059 

1-713-480-6000 

Order Line 

1-800-231-6671 
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TanPak ™ 

The TanPak ™ expansion board has been designed 
to allow Expansion beyond the scope of the standard 
Model 1000. Seven of the most needed functions/ 
features have been combined into one package using 
only one expansion slot. Si®||p|||^S|pa|||^fei 



Memory Disk 

pifjiSt 

With a 

§§i§ 

Exc 


mouse, 


m 


Serial Port 

Using the same configuration ||j Modei 1000 
port you are assured of complete compatibility as well 
as being able to configure it asi^p|||^^^, '\)jj 

Clock-Calendar 

Quartz-controlled for a high degree of accuracy, 
featuring a battery 

DMA 

The DMA (Direct Memory Access) is used on the 
Model 1000’s first memory card. It increases memory 

drive operation. ||||| 

Printer Spooler 

Use part of your TanPak ™ memory as a printer 
buffer. Choose the amount of buffer space you?fl|f§|| 
and stop waiting Oh 
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purchase orders from government agencies: UPS ground is our standard 

Vi 
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TanPak 1 Secondary 

If you already have a Model 
and do not wish to 
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Origld:*' 

Sq. Miles '; 


Conld:*' 

Sq. Kilometers ';OpVal:=2.590;end; 

17 : 

begin 



Origld:*' 

Cu. Centimeters '; 


Conld:*' 

Cu. Inches ';OpVal:=0.0610;end; 

18 : 

begin 



Origld:=' 

Cu. Inches ’; 


Conld: = ' 

Cu. Centimeters ’;OpVal:=16.3872;end; 

19 : 

begin 



OrigId:=’ 

Cu. Meters '; 


Conld:*' 

Cu. Feet ';OpVal:=35.314;end; 

20 : 

begin 



Origld:*’ 

Cu. Feet 


Conld:*' 

Cu. Meters OpVal:=0.02832;end; 

21 : 

begin 



OrigId:=' 

Cu. Meters '; 


Conld:*' 

Cu. Yards OpVal:=1.3079;end; 

22 : 

begin 



Origld: =' 

Cu. Yards '; 


Conld : = ' 

Cu. Meters ';OpVal:=0.7646;end; 

23 : 

begin 



Origld:*’ 

Milliliters ’; 


Conld:=' 

Ounces [U.S. Liquid] ';OpVal:=0.03382;end; 

24 : 

begin 



Origld:=' 

Ounces [U.S. Liquid] ’; 


Conld: * f 

Milliliters ';OpVal:=29.573;end; 

25 : 

begin 



Origld:*’ 

Liters ’; 


Conld:*’ 

Quarts [U.S. Liquid] ’;OpVal:=1.05671;end; 

26 : 

begin 



Origld:*' 

Quarts [U.S. Liquid] ’; 


Conld:*’ 

Liters ’;OpVal:=0.94633;end; 

27 : 

begin 



Origld:* 1 

1 Liters ’; 


Conld:*' 

Gallons [U.S. Liquid] ’;OpVal:=0.26418;end 

28 : 

begin 



Origld:*' 

1 Gallons [U.S. Liquid] ’; 


Conld:*’ 

Liters OpVal:=3.78533;end; 

29 : 

begin 



Origld:* 1 

1 Grams ’; 


Conld:*' 

Ounces [Avoirdupois] ’;OpVal:=0.03527;end; 

30 : 

begin 



Origld:* 1 

1 Ounces [Avoirdupois] ’; 


Conld:*’ 

Grams ’;OpVal:=28.3495;end; 

31 : 

begin 



Origld:* 1 

' Grams ’; 


Conld:*' 

Ounces [Troy] ’;OpVal:=0.03215;end; 

32 : 

begin 



Origld:*’ 

' Ounces [Troy] ’; 


Conld:*' 

Grams ’;OpVal:=31.10348;end; 

33 : 

begin 



Origld:*’ 

r Kilograms ’; 


Conld:*' 

Pounds [Avoirdupois] ’;OpVal:=2.20462;end; 

34 : 

begin 



Origld:*’ 

1 Pounds [Avoirdupois] ’; 


Conld:*' 

Kilograms ’;OpVal:=0.45359;end; 

35 : 

begin 



Origld:*' 

1 Degrees Centigrade ’; 


Conld:=' 

Degrees Fahrenheit ’; OpVal: =1111. J2f; end; 

36 : 

begin 



Origld:*' 

1 Degrees Fahrenheit ’; 


Conld:*’ 

Degrees Centigrade ’;OpVal:*2222. 0 ;end; 

end 

{of Case) ; 


end; {of Procedure) 

{ MAIN SELECTION MENU ) 

procedure MainMenu(var Choice:char;var Titleld:Titles); 
begin 

ch:=chr(l); 
clrscr; HighColor; 

gotoXY(25,3);write(' «< MAIN CONVERSIONS MENU: >» NormColor; 
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gotoXY(30,6) ;write( T A = LENGTH ’); 
gotoXY(30,8) ;write( ' B = AREA '); 
gotoXY(30,10) ;write(' C = VOLUME ’); 
gotoXY(30, 12);write(' D = CAPACITY '); 
gotoXY(30,14) ;write(' E = MASS '); 
gotoXY(30,16);write(' F = TEMPERATURE f ); 

gotoXY(2,21);write( 1 Press [ESC] at any menu to abort !'); 
repeat 

gotoXY(10,23);RevColor; 

writeC --> Which Menu do you want to see ? ’); 

NormColor; 

read(kbd,ch); ch := UpCase(ch); 
until ch in ['A'..' F*,CHR(27) ]; 
if ch = chr(27) then Stop else Choice:=ch; 

end; ( of procedure } 

{ CALCULATIONS ARE PERFORMED HERE } 
procedure DoTheCalculation(var Answer:real); 
begin 

if OpVal=2222.0 then begin { F to C CONVERSION ) 

Answer:=(5*(UserVar-32))/9; 

end else if OpVal-1111.0 then begin { C to F CONVERSION ) 
Answer: = ((UserVar*9)/5)+32; 
end else begin 

Answer:=UserVar*OpVal;end; { ALL OTHER CONVERSIONS } 

end; 


Main Program **-&**) 

begin 

ColorYesNo(ColorFlag); 

TitleScreen; 

PopToHere: 

MainMenu(Choice,Titleld); 

Case Choice of 

’A* : LengthCalc(CalcCode,ch); 

r B’ : AreaCalc(CalcCode,ch); 

•C f : VolumeCalc(CalcCode,ch); 

1 D T : CapacityCalc(CalcCode,ch); 
f E* : MassCalc(CalcCode,ch); 

•F* : TempCalc(CalcCode,ch); 

end { of Case ); 

if ch=chr(27) then goto PopToHere; 

GetParams(Origld,Conld,OpVal); 

UserVar: =1; ch: =*chr (1) ; 

ClrScr; 

HighColor ;gotoXY(15,5) ;vrite( ' «< ' .Titleld,' »> ’); 

NormColor; 

gotoXY(5,8);write('To exit this area enter the letter X .'); 
gotoXY(5,9);write(’Valid values are -1000 thru 10000.’); 
gotoXY(10,12);HighColor; 

write( f Converting: Origld,' to ',Conld! ’);NormColor; 

while UserVarOl0001 do begin ( LOOP CANNOT END USING THIS VALUE } 

gotoXY(5,23);write(* How many Origld,' to convert ? '); 

repeat 

gotoXY(5,24);ClrEol;HighColor;write(' .> ’); 

gotoXY(13,24); 

readln(UserString);NormColor; 
if UserString = r X' then goto PopToHere 

else if UserString=’x' then goto PopToHere 
else val(UserString,UserVar,x); 
until (UserVar >=-1000) and (UserVar<=10000); 

DoTheCalculation(Answer); 
gotoXY(l ,15); write(' Result: '); 

gotoXY(10,16);ClrEol;write(Uservar:5:5,Origld);gotoXY(20,17); 

{ Printer support can be added here *** } 

ClrEol; 

HighColor;write(' is equal to ’.Answer:5:5,Conld);NormColor; 
end ( while..do }; 
end. { Of source listing } 
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Feature 


Flying through programs with the 
up-and-coming computer aided 
education language 


A Good PILOT for 
Lost Programmers 

By John McCormick 





W ith the perennial pres¬ 
ence of BASIC on most 
small computers, 
many people try to 
force their programs 
to fit the mold of this language, whether 
it is a good fit or not. Many who know 
better do this, but I am more concerned 
with all those who are new to computers 
and perhaps don’t realize there are other 
languages available at a reasonable 
cost. Even those who have become 
familiar enough with programming to 
know there are other languages, such as 
assembler or PASCAL, seldom know 


John Mc Cormick is a free-lance writer 
and computer consultant who studied 
physics and math in college. He was 
formerly with Wang Labs where he 
worked with IBM mainframes. He has 
also written a number of product re¬ 
views for PCM and its sister publica¬ 
tion , THE RAINBOW. 
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about some of the other highly useful 
languages. 

I am always distressed in particular to 
see teachers attempting to create educa¬ 
tional programs in these other lan¬ 
guages. Perhaps part of the problem 
with BASIC is its simple sounding name. 
I think more people would be willing to 
tackle some of the other languages (with 
their sometimes strange-sounding 
names) if everyone called BASIC by its 
full name: Beginners’ All-purpose Sym¬ 
bolic Instruction Code. 

If you think of BASIC in those terms, 
then a great language like PILOT (Pro¬ 
grammed Inquiry, Instruction or 
Teaching) might receive the attention it 
deserves from those who want to pre¬ 
pare question-and-answer sessions for 
use on their computer. 

I know BASIC or even PASCAL can be 
used to produce a program that will 
solicit responses to a series of questions, 
but you haven’t lived until you’ve seen 
how easy this sort of program is to write 


in PILOT. Don’t get me wrong; PASCAL 
is a great language and BASIC is prob¬ 
ably not as bad as many of its critics 
claim, but the reason there are literally 
hundreds of different languages is 
simple: each language is designed to do 
a different job and do it more easily than 
other languages. 

PILOT is designed specifically for 
teachers and for writing programs that 
work the way most teachers teach (or 
would like to have the time to teach) — 
through a dialog with students, giving 
hints where necessary. 

OK, so I have another language 1 
want you to learn; it must be hard or 
people would be using it instead of 
BASIC, right? Wrong! PILOT is incredi¬ 
bly easy to use for writing simple pro¬ 
grams, unlike BASIC or other languages 
that require a fairly complete under¬ 
standing of complex commands and 
punctuation to write even simple code. 
Here is an example of a PILOT program: 

T: Is 2+2+2=57 (the command T: 













1000/ 1200/ 2000/ 3000 



causes text to be printed on the 
screen) 

R: gets a response from keyboard 
M: no (this tests for a match with 
the specified text no) 

TV:CORRECT ! ! (TV: displays the 
text if a match is made) 

TN:S0RRY, THRT ISN’T CORRECT 
(TN: displays this text if the key¬ 
board response R: does not match 
the contents of M:, here no) 

That’s it! This is a “runable” PILOT 
program, although you might want to 
add a few more questions to your 
session, it should give you the idea. 
Pretty simple, isn’t it? Yet it asked a 
question (displayed it on the screen), 
waited for an answer and responded to 
the answer. How quickly could you 
write that program in BASIC? 

If you want to run a series of ques¬ 
tions past the student, all you need do 
is enter that series of : commands into 
a word processor file and use the word 
processor’s C0PV command to produce 


as long a program as you want. That’s 
right! This language is so simple to use 
that you can extend Q&A sessions by 
just using your word processor’s COPY 
function to produce more lines of code, 
then filling in the questions and re¬ 
sponses you want. What could be 
simpler? 

PILOT also provides an easy way to 
provide additional information depend¬ 
ent on the given answer. Remember, this 
language is designed for programmed 
learning and that is how programmed 
learning operates: first some text gives 
information, next a question is asked to 
test understanding, then additional help 
is given in the area where it is needed. 

How about writing information from 
a BASIC program that is longer than one 
screen full? How do you make the 
longer text easy to read using BASIC? 
Using pilot’s FOOT: command, the 
program stops and prints a message at 
the bottom (foot) of the screen, such as 
Press RETURN to go on, then goes to 


the next page when the RETURN button 
is depressed. That’s all, just FOOT:, no 
INKEY$ or anything else. The PILOT 
language provides all that, just as it 
provides all the strings needed for the 
matching and keyboard entry func¬ 
tions. 

PILOT also has other commands, such 
as PRU5E :, that make this sort of pro- 
gramming easier. For example, 
PRUSE: n causes the program to pause 
for ‘n’ seconds, a very useful command. 
Switching to other topics dependent on 
answers and simple computation are 
other functions available to the PILOT 
programmer, along with commands to 
keep track of scores or correct answers 
to questions. 

PILOT is so much faster than BASIC for 
writing these question-and-answer 
types of programs that I write the code 
much faster than I can think up good 
questions, certainly something that 
doesn’t happen with BASIC. I have no 
trouble turning out a 20- or 30- 
question-and-answer program in an 
hour or less. 1 am only slowed down by 
stopping to think up questions and most 
of the time is taken up typing in the text 
— the actual programming takes only 
a minute or two. 

So where do you find this miraculous 
language, and how much does it cost? 
One of the best inexpensive pilot 
interpreters is available from Ellis 
Computing, complete with a good, 
easy-to-read instruction manual and 
several sample programs for $39.95. 
This package even includes a program 
that leads you through questions and 
answers while creating a PILOT program 
for you. 

If you use computers in training or 
teaching, I urge you to look into PILOT. 
This language is easier to learn than 
many educational programs I have 
used, and it offers the opportunity to 
write unlimited numbers of different 
programs for your own use. 

PILOT doesn’t do everything, for 
instance, it can’t be used to balance your 
checkbook or solve problems of any 
sort. The reason PILOT is easy to use and 
simple to learn is that it only performs 
certain functions. PILOT is not a general 
purpose language like BASIC or PASCAL, 
which can do almost anything (though 
they do almost nothing very easily), but 
if your work is the kind PILOT is de¬ 
signed to do, then you will bless the day 
you found it. 

(Ellis Computing’s address is: 3917 
Noriega St., San Francisco, CA 
94122.) nrsrci 
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Feature 


100 


Machine language programming 
on your Portable 

Model 100 Machine 
Code Made Easy 

By Michael R. Henning 


T he execution speed of machine code compared with 
a BASIC interpreter is like the difference between 
night and day. Machine code executes much faster 
because each byte does not have to be interpreted by 
software into hardware terms. The primary drawback to 
using machine code is having to manually generate the 
numeric values for the code since most PCs only come 
equipped with BASIC. n 

The first computer languages were called “assemblers.” 
The purpose of an assembler is to eliminate the work of 
generating numeric values representing machine code. The 
assembler input is a set of machine code mnemonics that 
mean more to the programmer than a series of ones and 
zeros. Through the use of labels, data and mnemonics, the 
programmer can generate a program that runs in direct code 
and performs a specific function. 

This article describes the 8085 assembler enclosed in 
Listing 2.This is a two-pass assembler written in BASIC for 
use on the TRS-80 Model 100. Because of the necessity to 
conserve memory and the I/O limitations of the Model 100, 
a quasi-dual pass assembly and only basic error-checking 
are the two characteristics of this program. 

Dual-pass assembly means each source statement is 
analyzed twice. This is a quasi-dual pass assembler because 
the first pass is only used to generate the label table and 
no intermediate code is generated. Consequently, the input 
code is actually assembled twice. This takes longer to run 
than a single-pass assembler but it allows forward referenc¬ 
ing during assembly. 

The mnemonic language used for the 8085 is the same 
as the 8080 with the addition of the SIM/RIM instructions. 
There are three different types of instructions that, for the 
purposes of this article, we will call Format I, II and III. 

Format I instructions are those defined in a single byte. 
An example of a Format I instruction is a PUSH B. This 
instruction is totally defined by the operation code C5 Hex. 
It means push the contents of the Register BC pair onto the 
stack. Another example of a Format I instruction is MOV 
fl,B. This is represented by the Hex code 78. This is a one- 
byte instruction with two fields that contain operand data. 
In this case, bits 3 to 5 represent ‘A’ (seven) and bits 0 


Michael Henning is a systems analyst for Sperry 
Corporation. He has over 20 years of experience 
working with computers. 
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to 2 represent ‘B’ (zero). All Format I instructions are one 
byte and may or may not have operands associated with 
them. 

Format II instructions occupy two bytes. These use 
immediate operands. An example of a Format II instruction 
is MV I fl,17?0. This instruction moves 177 octal to Register 
A. The second byte in the Format II instructions is always 
the immediate operand. 

The final class of instruction is the Format III. In like 
manner. Format III uses three bytes. These are the direct 
instructions of load/store and program branching instruc¬ 
tions, jumps/calls. An example of a Format III instruction 
is CALL FF00H. Its execution causes the program to call the 
routine at FF00 hexadecimal and put the current program 
counter on the stack. 

The instruction repertoire is available in many different 
places. Books on the 8085 and machine language program¬ 
ming are available and very helpful. Table 1 gives a list of 
instruction mnemonics and the operands expected by the 
assembler. 

The input to this assembler program is somewhat free 
form. Labels must begin in Column 1. All operators must 
be separated by at least one space, a comma, a tab, or a 
plus or minus sign. Comments may be added to the input 
line following a period and, for the sake of attractive output, 
should be limited to 20 characters. The following is an 
example of an input line. 

12 3 4 

1234567890123456789012345678901234567890 

LABEL JMP LABEL+10 . EXAMPLE 

The only restriction on a label is that it cannot be named 
REM and cannot end with a ‘B’, ‘D\ ‘H’ or ‘O’. REM is 
used to denote a remark and causes all data up to the next 
carriage return to be printed out. No attempt is made to 
find any valid statements in a remark. REM must begin in 
Column 1 just like a label. The endings ‘B\ ‘D’, ‘H’ and ‘O’ 
are reserved for numeric operands. 

The program allows any size label but the output only 
uses a maximum of eight characters. My personal prefer¬ 
ence for labels is no more than seven characters; that way 
I can use tabs to separate labels and mnemonics. Another 
restriction of labels is that only 256 are allowed. This is to 
save memory and can be expanded by changing the program 













at lines 5,40 and 1350. Labels are optional on all statements 
with the exception of EQU, which requires a label. 

Two arithmetic operators are allowed on operands. Any 
label or numeric operand can be modified with a plus or 
minus sign and a decimal number. Therefore, in the example 
line, the jump would be to the address of LABEL+10 decimal. 

Numeric operands must designate whether they are 
binary, octal, decimal or hexadecimal. These different 
number bases are shown by B’, ‘O’, ‘D’ or ‘H\ respectively, 
in the last digit of the field. Therefore, 1770 represents 177 
octal. If the number base is left off, the assembler treats the 
number as a label. The exception to this rule is arithmetic 
modification, described in the previous paragraph, which 
is always a decimal number and cannot have a number base 
identifier. 

In addition to numeric values, the T signifies the current 
contents of the address counter. If an operand such as $+2 
is used, the generation is the current address of the 
instruction being assembled plus two. 

In addition to the full 8085 mnemonic table, the assembler 
uses the following special mnemonics: 

• ENTRV — This is used to note the entry point of the 
program. The format is [label] ENTRV [numeric 
value ]. It has no significance for the program and serves 
only as a programmer reminder. 

• DATA — This mnemonic is used to designate input data. 
The format is [ label ] DATA [operand]. The generation 
for the data statement is either one or two bytes. If the 
operand, which can be a numeric expression or label, is 
in the range 0-255, one byte is allocated. If the value is 
256-65,535, then two bytes are allocated. 

• EQU EQU allows the programmer to equate a value to 
a label. The format is [label] EQU [operand]. The 
operand can be a numeric expression or a label. The EQU 
operator must have a label. 

• 0RG — 0RG allows the programmer to set up the address 
counter. 0RG is normally the first mnemonic encountered 
and contains the start address of the assembly in the 
format, [label] 0RG [numeric value]. In addition, 
ORGs can be placed anywhere the address counter needs 
to be changed. 

• RES — RES is used to reserve a number of bytes of data. 
The format is [label] RES [number of bytes]. This 
instruction increments the address counter to reserve a 
specified number of bytes for dynamic storage. 

• STR This operator allows the programmer to enter 
ASCII string data. The format is [label] STR 
[xxxxxxxx], where xxxxxxxx is string data. 

• END This is the final statement in the assembly. The 
format is [label] END. The label is optional but the 
statement must be included or a fatal assembly error 
occurs. 


The program contains a limited amount of error check¬ 
ing, and the following errors may appear on the output 
listing: v 

• *1* (Instruction error) - This occurs when a mnemonic 
is not recognized or there are improper fields in the 
statement. 

• *U* (Undefined error) — This error occurs when a label 
used as an operand cannot be found in the label table. 

• *D* (Duplicate definition) — This occurs when a label 
being used has been previously defined. 

• *W* (Warning) — Occurs when the data in an operand 
overflows the maximum possible value. 

In addition, the assembler gets a fatal error if there are 
operands it does not understand. The assembly stops and 
all lues are closed. As previously mentioned, if there is no 
END statement in the program, a fatal error also occurs. 

The program allows the programmer to specify the name 
and device for the input file and the print file. The operator 
also specifies whether an object file is desired. The object 
file is a text file that contains hexadecimal addresses and 
generated code data. 

The program in Listing 1 loads the object file into 
memory. The loader program sets HIMEM to the first address 
encountered in the object file and loads the program into 
memory. At completion, the first and last addresses and the 
number of bytes are displayed. The loader program requires 
no operator intervention. 

d J oA P ^u te r output of the Program is set up for an Epson 
if u- The format is in 80 columns and includes headers. 

11 this needs to be changed for your printer, the control 
codes are contained in lines 1520 and 1600. 

My objective in writing this program was to provide a 
versatile assembler that could use all of the capabilities of 
the Model 100 and not use all of its memory. Because the 
device for the files can be designated, larger input files can 
be read from tape (the file should be on tape twice, once 
lor each pass). The output can be directed to the printer 
and leftover memory can be used for the object file and an 
expanded label table. 

For those who have access to CompuServe, the following 
files are in the XA4 database of the Model 100 Users Group 
(PCS-154); v 

ASM.BA Assembler program 

LDASM. BA Loader program 
ASM. DOC Assembler documentation 

ASMEX.TXT Sample assembly 

Table 2 is a sample input file for an assemble and Table 
3 is the assemble output. 

If you have any questions concerning this program you 

™^° n , taCt Mr Hennin S at P O - 2155, Arlington, VA 
22202, phone (703) 548-2989. Please enclose an S ASE when 
writing. q 


Table 1 

FORMAT I 

MOV rl,r2 Move register to register STAX d 

LDAX d Load A indirect XCHG 

registers 

PUSH s Put register pair on stack POP s 

from stack 

XTHL Exchange top of stack and HL SPHL 

pointer 

INX t Increment 16 bit register DCX t 


Store A indirect 
Exchange HL and DE 

Get register pair 

HL pair to stack 

Decrement 16 bit 
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register 

PCHL 
RC 
RZ 
RP 
RPE 
RST u 
DCR r 
ADC , r 
SUB r 
borrow 
ANA r 


HL to program counter 
Return on carry 
Return on zero 
Return on positive 
Return on parity even 
Restart at address u 
Decrement register 
Add A + r with carry 
Subtract A - r 


And A with r 


FORMAT 


RET 

Unconditional return 

RNC 

Return on no carry 

RNZ 

Return on not zero 

RM 

Return on negative 

EPO 

Return on parity odd 

INR r 

Increment register 

ADD r 

Add A + r 

DAD t 

Add HL + t 

SBB r 

Subtract A - r with 

XRA r 

Exclusive or A with 

CMP r 

Compare A with r 

RRC 

Rotate A right 

RAR 

Rotate A right 

STC 

Set carry flag 

DAA 

Decimal adjust A 

DI 

Disable interrupts 

HLT 

Halt 

SIM 

Set Interrupt mask 


II 



Output A on chan opl 


Add A + opl 
Subtract A - opl 
And A with opl 
Or A with opl 
Input A from chan 


FORMAT III 


LXI t,op2 
LDA op 2 
LHLD op2 
JC op2 
JZ op2 
JP op2 
JPE op2 
CALL op2 
CNC op2 
CNZ op2 
CM op2 
CFO op2 


Load immediate register pair STA op2 

Load A direct SHLD op2 

Load HL direct °P 2 

Jump on carry JNC opZ 

Jump on zero JNZ °P 2 

Jump on positive °P 2 

Jump on parity even dPO op2 

Unconditional call cc °P 2 

Call on no carry cz °P 2 

Call on not zero CP °P 2 

Call on negative CPE op2 

Call on parity odd 


Store A direct 
Store HL direct 
Unconditional jump 
Jump on no carry 
Jump on not zero 
Jump on negative 
Jump on parity odd 
Call on carry 
Call on zero 
Call on positive 
Call on parity even 


SPECIAL ASSEMBLER CODES 


DATA opl or 
allocated for 

op2 

END 

ENTRY op2 

[LABEL] EQU opl or op2 
ORG op2 


REM 


RES opl or op2 
STR [string] 

$ 


Data for use by assembled code. 1 byte 

opl, 2 bytes allocated when op2 > 255. 

Required at the end of the program. 

Entrance address to the assembled code. 

Equates value to label. 

Sets address counter to value of op2. 

Remark, must start in column 1. 

Reserves number of bytes specified in operand. 
Allocates 1 byte to every string character 
Operand designating current value of address 


counter. 


r — B,C,D,E,H,L,M(contents of HL),A 
s - B,D,H,PSW 
u *= 0,8,10,18,20,28^0,38 
0*255 
op2 


d = B,D 
t = B,D,H,SP 

opl = numeric or label operand 


numeric or label operand JJ-65535 
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UP! 

wondering where to grow? 

Why not get IBM compatibility with 
Tandy's 1200, or the new 3000, and 
take your OS-9 programs with you? 

TLM'S PC68K puts the 68000/68010 
processor and Microware's OS-9 
together in any IBM, or compatible, 
PC/XT/AT system, providing the 
best of both worlds with fully 
concurrent PC/68000 operation. 

• Powerful languages such as 

BASIC09, PASCAL and C 

• dynacalc for spread sheet 

processing 

• The power of the 68000/68010 

• The price/performance and 

flexibility of the Tandy 1200 

and 3000 

TLM’s PC68K.. .A great family 
to grow up with! 

IBM is a registered trademark of International Business Machines. 
DYNACALC is a registered trademark of Computer Systems Center 
OS-9 is a registered trademark of Microware Systems Corp. 
CPM 68K is a registered trademark of Digital Research Corp. 
MK68000 MK68010 are registered trademarks of Motorola 
UNIX is a registered trademark of AT&T 



CLOCK SPEED 

8/10/12.5 MHZ 
Without wait states 

HARDWARE 

2 Parallel Ports 
3-9 Serial Ports 

68881 Floating point co-processor 
(optional) 

Memory mapped dual port bus for 
high speed DMA transfers 
Real time clock with battery 
backup 

Up to 16 boards can run con¬ 
currently from one AT/XT/PC bus 

MEMORY 

1-2 MB OF RAM 

(1 MB on board standard) 

8K-32K of ROM 

2K-8K of battery backed RAM 

MULTI-USER 

3-9 users (3 standard) 

High speed “Tick” timer with 10ms 
accuracy for efficient multi-user 
time slicing. 


OPERATING SYSTEMS 

OS-9 (Multi-user UNIX look-alike) 
C/PM-68K (popular single user OS) 
Both support concurrent access 
to PC DOS 
SOFTWARE 
Software selectable OS 
environment 

IBM Color/Mono Graphics Support 
Local and Global disk caching for 
maximum speed and efficient 
data transfer 
COMMUNICATIONS 
Powerful asynchronous/ 
synchronous data 
communications capability 
Bisynchronous SNA 3270, X.25, etc. 
MISCELLANEOUS FEATURES 
Remote and Local reset (hardware 
or software selectable) 

Remote and Local Non-maskable 
Interrupts (NMI) 

Stand alone hardware capability 
(without AT/XT/PC support) 



West: 4704 W. Jennifer, Suite 105, Fresno, CA 93711 209/276-2345 / East: 67 Grandview Avenue, Pleasantville, NY 10570 914/747-1450 













Table 2 


REM SAMPLE 

PROGRAM FOR 8085 ASSEMBLER WRITTEN BY M. HENNING. 





REM 

BEGIN 

ORG 

62(2000 

.START ADDRESS 

START 

ENTRY 

TEST 

. ENTRANCE BYTE 

DATA1 

DATA 

1770 

.177 OCTAL 

DATA2 

DATA 

0L001B 

.BINARY 9 

DATA3 

DATA 

32768D 

.DECIMAL NUMBER 

DATA4 

DATA 

FF00H 

.HEX NUMBER 

EQUAL1 

EQU 

DATA1+4 

.EQUATE 

DATA5 

RES 

ijm 

.RESERVE 16 BTS 

STRING 

STR 

THIS IS 

A TEST.STR DATA 

i _ jL. -*ju v 1 * ^ *\V *iV sv* * v “'f J- ‘i'.-'hWf' * v *$r Vi 1 Vr Vc* /V Vc Vc *>V dV *>V 

REM *** 
REM 



nKxTOwOwOOCvOv XXX700C #C rv #v 7wC/v a7v /% /\ nv\ /\ #vK 7\ 7v M / s m /% /\ *s /s y ' '' 

END DATA 

REM «lgHHri!MHrtWr5llnl(r#3fln^ 

TEST 

MOV 

A, B 

.MOVE B TO A 


JMP 

$+2 

.JUMP 2 BYTES 


CPI 

FFH 

. COMPARE A 


JZ 

TEST1 

.FORWARD REFER 


CALL 

DATA4 

.CALL 

TEST 

MVI 

D, 89D 

.DUPLICATE LBL 

TEST1 

CPI 

EQUAL1 

.WARNING 


END 


.END SAMPLE 





Table 3 


Vo’oV 19:00:00 

07/02/84 *** 




#PAGE 1 






ERROR LINE NO 

. ADDR 

CODE 

LABEL 

MNEMONIC COMMENTS 


-VVo’oVtfr-jWo 1 


REM *VoV****VoWoV***^WoV*VoWoWc*****VoWoVyoWc**VnW<****^ 

REM SAMPLE 

PROGRAM 

FOR 8085 ASSEMBLER WRITTEN BY M. HENNING. 


00001 

F230 


BEGIN 

ORG 

62000D6.START ADDRESS 

00002 


54 

F2 ENTRY 

ENTRY, 

TEST6.ENTRANCE BYTE 

00003 

F230 

7F 

DATAl 

DATA 

17706.177 OCTAL 

00004 

F231 

09 

DATA2 

DATA 

01001B6.BINARY 9 

00005 

F232 

00 80 

DATA 3 

DATA 

32768Do.DECIMAL NUMBER 

00006 

F234 

00 FF 

DATA4 

DATA 

FF00H6.HEX NUMBER 

00007 


34 

F2 EQUAL1 

EQU 

DATA1+46.EQUATE 

00008 

F236 


DATA5 

RES 

10Ho.RESERVE 16 BTS 

00009 

F246 

54 

STRING 

STR 

To.STR DATA 

00010 

F247 

48 



Ho 

00011 

F248 

49 



16 

00012 

F249 

53 



So 

00013 

F24A 

20 



6 

00014 

F24B 

49 



16 

00015 

F24C 

53 



So 

00016 

F24D 

20 



6 

00017 

F24E 

41 



Ao 

00018 

F24F 

20 



6 

00019 

F250 

54 



To 

00020 

F251 

45 



Eo 

00021 

F 2 5 2 

53 



So 

00022 

F253 

54 



To 

REM **VcVc*****Vc*VoVVc*********V<-***VcVoWcVcVcVcVc*7VVc******VoVVcVoV>VV<'V^Vc-**Vc****7V**VcVx-V^Vr*Vc**V<'** 

' REM < ; 



END DATA 




00023 

F2 5 4 

78 

TEST 

MOV 

A,Bo.MOVE B TO A 
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P0024 

F255 

C3 

57 

F2 


JMP 

$+26.JUMP 2 BYTES 


JW25 

F258 

FE 

FF 



CFI 

FFHo.COMPARE A 


PPP26 

F25A 

CA 

62 

F2 


JZ 

TESTlo.FORWARD REFER 


PP027 

F25D 

CD 

34 

F2 


CALL 

DATA46.CALL 

*t>* 

PPP28 

F26j2f 

16 

59 


TEST 

MVI 

D,89Do.DUPLICATE LBL 


ppp2 








Listing 1: 

5 DEFSTR F 

6 DEFSNG T 

10 OPEN "OBJT.DO”FORINPUTASl 

11 INPUT #1,A$ 

12 GOSUB 1000 

13 CLEAR 256,T 

14 DEFSTR F 

15 DEFSNG T 

16 OPEN" OBJT.DO"FORINPUTASl 
20 IFEOF (1) THEN30JJ 
30 INPUT#1,A$ 

35 IFA$="END"THEN3£fJ2r 
40 IFLEN(A$ )O4THEN20JJ 
50 GOSUB1J300 
60 IFBG=p(THENBG=T 
70 AD=T 
80 GOT03J3 
2^rj2T GOSUBippp 
210 POKE AD,T 
215 AD=AD+1 
220 G0T03J3 

300 CLS:PRINT@4j?,”BEGINING ADDRESS:";CHR$(9);BG; 

31J? PRINT@8J3, "ENDING ADDRESS CHR$ (9) ; CHR$ (9) ; AD-1; 

32J? PRINT@120, "LENGTH: " ;CHR$(9) ;CHR$(9) ;AD-BG 

33|J CLOSE 
34jZ END 
1000 T=0 

1010 FORX=lTOLEN(A$) 

102? F=MID$(A$,X,1) 

1030 IFASG(F)>47ANDASC(F)<58THENT1=ASC(F)-48ELSET1=ASC(F)-55 

1040 T—T*16+T1 
1050 NEXT 
1060 RETURN 


Listing 2: 

1 MAXFILES=3 

5 CLEAR2000 

6 ONERRORGOTO3220 
10 DEFINTX,P 
20 DEFSTRF,H,L,R,E 
30 DEFSNGT,V 

40 DIMH(6),R1(7),R2(3),R3(3),R4(87),LBL(256),V(256) 

50 XX=0:PC=1:LC!=59:E1="":LN=" 00001 ":XA=2 
55 GOSUB9950 
60 CLS 

70 INPUT"ENTER INPUT FILE NAME: ";FI 
80 INPUT"ENTER LISTING FILE NAME: ";FL 

85 INPUT"DO YOU WANT AND OBJECT OUTPUT (Y/N):";FO:IFFO="Y"THENFO*"OBJT"ELSEFO="" 

87 P=0 

88 CLS:PRINT@137,"PASS " ; P+1; : XX=0: AD-0 
90 OPEN FI FORINPUTASl 

100 IFPO0THENOPENFLFOROUTPUTAS3 

105 IF FOO""ANDPO0THENOPENFOFOROUTPUTAS2 

110 H(0)-"":H(1)-"":H(2)="":H(3)="";H(4)-"":H(5)=”":H(6)=»" 

115 El="" 

120 01-0:02=0:03=0 
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13(3 GOSUB1000 

14(3 IFFlO""TKENT=AC:GOSUB1350 
145 IFF1="REM"THENGOTO3230 
15(3 GOSUB1450 

16(3 ONINT((XZ-1)/10)+1GOTO170,18(3,19(3,2(3(3,21(3,22(3,23(3,235,24(3 

17(3 ONXZGOSUB2000,2(336,2(372,2112,2112,2144,2144,218(3,218(3,2196 : GOTO110 

18(3 ONXZ-10GOSUB2208,2208,2224,2236,2248,2248,2264,2264,2264,2264:GOTO110 

190 ONXZ-20GOSUB2264,2264,2264,2264,2264,2280,2292,2292,2292,2292:GOTO110 
200 ONXZ-30GOSUB2292,2292,2292,2292,2292,2308,2308,2308,2308,2308:GOTO110 
210 ONXZ-40GOSUB2308,2308,2308,2308,2324,2390,2390,2416,2416,2416;GOTO110 
220 ONXZ-50GOSUB2416,2416,2416,2416,2416,2432,2432,2432,2432,2432:GOTO110 
230 ONXZ-60GOSUB2432,2432,2432,2452,2452,2452,2452,2452,2452,2452:GOTO110 
235 ONXZ-70GOSUB2452,2464,2464,2476,2476,2488,2500,2512,2512,2524:GOTO110 
240 ONXZ-80GOSUB3102,3046,3066,3000,3012,3090,3115,1662:GOTO110 
1000 Fl="" :F2="" : F3="" : F4="" : F5«="" : F6="" :X=*1: NS=0 
1016 IFE0F(1)THENCL0SE:GOTO3200 

1018 F=INPUT$(1,1) 

1019 IFX=2ANDF1=”REM"THENX=6:NS=0 

1020 IFF=CHR$(13)THENRETURN 

1021 IFF2="STR"ANDX=3ANDFO". "THEN1056 

1022 IFF=CHR$(10)THEN1016 

1024 IFNSAND(F=” "ORF=CHR$(9))THEN1016 
1028 NS=0 

1032 IFX=6THENF6=F6+F:GOTO1016 

1036 IFF=" "ORF*","ORF=CHR$(9)THENX=-X+l:NS=1:GOTO1016 

1040 IFF="."THENX=6:GOTO1032 

1042 1FF="+"0RF="-"THENX=5 

1044 ONXGOTO1048,1052,1056,1060,1064 

1048 F1=F1+F:GOTO1016 

1052 F2=F2+F:GOTO1016 

1056 F3=F3+F:GOTO1016 

1060 F4=F4+F:GOTO1016 

1064 F5=F5+F:GOTO1016 

1100 H(X)="" 

1114 IFX1=2ANDT>255THENE1=”*W*" 

1116 X2=T/16 
1120 T=T-X2*16 

1124 IFT<10THENH(X)=CHR$(T+48)+H(X)ELSE H(X)=CHR$(T+55)+H(X) 

1128 IFX2>0THENT=X2:GOTOlll6 
1132 GOSUB1150 
1136 RETURN 

1150 IFLEN(H(X))>=X1THENRETURN 
1166 H(X)="0"+H(X) 

1170 GOTO1150 

1200 FORX2=0TO7 

1216 IFH(4)=R1(X2)THENRETURN 

1220 NEXT:G0T01248 

1224 FORX2=0TO3 

1228 IFH(4)-R2(X2)THENRETURN 

1232 NEXT:G0T01248 

1236 FORX2=0TO3 

1240 IFH(4)=R3(X2)THENRETURN 

1244 NEXT 

1248 X2—-1 

1250 El="*I*" 

1252 RETURN 
1260 T=0 

1276 FORX“lTOLEN(H(5)) 

1280 F=-MID$(H(5) ,X, 1) 

1284 IFASC(F)>47ANDASC(F)<58THENT1=*ASC(F)-48ELSET1=ASC(F)-55 
1288 T=T*T2+T1 
1292 NEXT 

1294 IF T>65535THENE1="*W*" 

1296 RETURN 
1300 T2=0 

1311 IFLEFT$(H(5),1)="$"THENT=AC+VAL(F5):RETURN 

1312 IFRIGHT$(H(5) ,l)=>"0"THENT2-8 
1316 IFRIGHT$(H(5),1)“"B"THENT2=2 
1320 IFRIGHT$(H(5),1)="D"THENT2=10 
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COLOR COMPUTERS 

LIST 

PRICE 

OUR 

PRICE 

26-3127 64K Extended Color Computer 2 

$199.95 

$169.00 

26-3134 16K Standard Color Computer 2 . 

119.95 

99.00 

26-3131 Thinline Disk Drive 0 for Color Computer 

299.95 

240.00 

26-3018 Extended Basic Kit . 

39.95 

36.00 

*>6-3030 OS-9 With Editor Assembler .... 

69.95 

59.50 

26-3012 Deluxe Jo'/stick . 

29.95 

25.00 

26-1208 CCR-81 Recorder . 

59.95 

50.00 

30001170 VIP Integrated Library. 

149.95 

139.00 

30001110 VIP Writer. 

69.95 

59.00 

30001210 Telewriter 64 Tape . 

49.95 

42.00 

30001220 Telewriter 64 Disk. 

59.95 

49.00 

30009110 Botek Interface . 


59.00 

TANDY 3000 

25-4001 Tandy 3000 One Disk 512K . 

$2599.00 

$1900.00 

25-4010 Tandy 3000 One Disk & 20 Meg HD 512K 

3599.00 

2600.00 

25-3046 Deluxe Text Display Adapter .... 

249.95 

205.00 

26-3047 Deluxe Graphics Display Adapter 

499.95 

395.00 

25-4030 512K to 2 Meg Expansion Board 

499.00 

395.00 

25-4033 Math Co-Processor for 3000 .... 

399.95 

339.00 

25-4050 1.2 Meg Disk Drive Kit for 3000 . 

299.95 

255.00 

25-4060 Hard Disk Controller Board for 3000 

499.00 

425.00 

25-4062 20 Meg Hard Disk Kit . 

799.00 

679.00 

25-4101 MS-DOS 3.1/Basic/DeskMate . . . 

99.95 

85.00 

26-5111 VM-1 Monochrome Monitor. 

199.95 

165.00 

26-5112 CM-1 Color Monitor. 

599.95 

510.00 

TANDY 100, 200, 600 

26-3901 Tandy 600 Pori Comp 32K DD 

$1599.00 : 

$1195.00 

26-3904 Basic Rom for Tandy 600 . 

129.95 

110.00 

26-3910 92K RAM Upgrade for Tandy 600 . 

399.95 

340.00 

26-3860 Tandy 200 Port Comp 24K. 

799.00 

650.00 

26-3866 24K RAM Memory Exp Chip for 200 

199.95 

170.00 

26-3802 Tandy 100 Port Comp 24K. 

499.00 

425.00 

26-3816 8K RAM Upgrade for Tandy 100 . . 

49.95 

42.00 

26-3808 Port 3V 2 Disk Drive for T100 T200 . 

199.95 

169.00 

26-3815 Portable Disk Case . 

24.95 

21.00 

26-3805 Acoustic Coupler. 

39.95 

34.00 

26-1409 Printer Cable . 

14.95 

12.70 

26-1410 Modem Cable . 

19.95 

17.00 

MODEL4D 

26-1070 Model 4D 64K 2 FD w/DeskMate . 

$1199.00 

$895.00 

26-1122 64K Memory Expansion . 

69.95 

65.00 

26-1123 Model 3 to Model 4 Upgrade Kit . . 

399.00 

385.00 

26-1134 Model 4 HD Kit for 15 Meg. 

79.95 

67.95 

26-1530 Multiplan Model 4 . 

199.00 

169.00 

26-1595 Super Scripsit Model 4 . 

199.95 

169.00 

26-1608 DeskMate for Model 4. 

195.00 

175.00 

26-1635 Profile 4 Model 4 . 

249.95 

200.00 

26-2216 CP/M Plus Model 4 . 

149.00 

127.00 

26-2231 Double Duty Utility. 

69.95 

58.00 

MODEL 6000 COMPUTERS 

26-6021 Model 6000 512K 2 FD Comp . . . 

$4499.00 $3125.00 

26-6022 Model 6000 512K 1 FD 15 Meg HD . 

5499.00 

3795.00 

26-6019 Model 6000 256K Memory Kit_ 

199.95 

185.00 

26-6052 DT-100 Data Terminal. 

795.00 

600.00 

26-1245 10 Meg Disk Cartridge System . . . 

2195.00 

1750.00 

26-6018 6000 Interface Kit for 26-1245 _ 

119.95 

102.00 

25-30221000/1200/3000/Interface Kit for 26-1245 

199.95 

160.00 

26-4155 15 Meg Hard Drive Primary. 

1595.00 

1355.00 

26-4171 35 Meg Hard Drive Primary. 

2995.00 

2545.00 

26-4173 70 Meg Hard Drive Primary. 

4295.00 

3350.00 

26-4157 Installation Kit for Primary HD ... . 

349.00 

295.00 


All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, add 2%. AX, add 3%. All non¬ 
defective items returned will be subject to 10% restocking fee. Defective 
items require return merchandise authorization. Call for R.M.A. Number 
before returning. Delivery is subject to product availability. 


CALL 

1-800-248-3823 





RADIO SHACK PRINTERS 

LIST 

PRICE 

OUR 

PRICE 

26-1276 DMP-105 Dot Matrix Printer . 

$ 199.00 $ 169.00 

26-1275 TRP-100 Portable Thermal Printer. 

299.00 

230.00 

26-1280 DMP-130 100 cps Triple Mode Printer 

349.95 

285.00 

26-1268 CGP-220 Color Ink-Jet Printer . . . 

699.00 

595.00 

26-2830 PC-695 8-Color Digital Plotter 

799.00 

680.00 

26-1277 DMP-430 24 Wire Matrix Printer . . 

899.00 

635.00 

26-1270 DWP-510 43 cps Daisy Wheel . . . 

1495.00 

1225.00 

26-1274 DMP-2100P 24 Dot Matrix Printer. 

1495.00 

1195.00 

26-1279 DMP-2200 HiSpeed Matrix Printer. 

1695.00 

1440.00 

26-1269 PT-64 Printer Controller. 

249.95 

210.00 

26-1498 SW-302 Printer Switch . 

119.95 

100.00 

26-1447 Bi-Directional Tractor for DWP 510 

219.95 

186.95 

TANDY 1200, 2000 

25-3000 Tandy 1200 One FD & 10 Meg HD . 

$1999.95 

$1525.00 

25-3001 Tandy 1200 Two FD 256K . 

1499.00 

1200.00 

25-3010 VM-3 Green Monitor . 

219.95 

185.00 

25-1022 CM-10 Color Monitor. 

459.95 

380.00 

25-3043 Graphics Display Adapter . 

299.00 

185.00 

25-3044 Graphics Master . 

695.95 

540.00 

25-3061 Captain Multifunction Board . 

599.95 

475.00 

25-3020 TCS-100 Tape Cartridge System . 

1999.00 

1555.00 

25-3021 TCS-100 Interface Kit 1000/1200 . 

149.95 

120.00 

25-3130 MSDOS/BASIC . 

89.95 

76.50 

26-5103 Tandy 2000 Two Disk . 

1599.00 

1225.00 

26-5104 Tandy 2000 One Disk & 10 Meg HD 

2499.00 

1885.00 

TANDY 1000 

25-1000 Model 1000 128K 1 FD & DeskMate $ 999.95 $ 705.00 

25-1001 Model 1000 256K1 FD 10 Meg HD 

1999.00 

1475.00 

25-1003 300-Baud Modem Board 1000/1200 

149.95 

125.00 

25-1005 Disk Drive Expansion 1000 . 

199.95 

170.00 

25-1006 RS-232C Interface 1000/1200 

99.95 

85.00 

25-1013 1200-Baud Modem Board 1000/1200 

299.95 

230.00 

25-1025 10 Meg Hard Disk Drive . 

699.95 

559.00 

25-1007 Hard Disk Control Board. 

299.95 

255.00 

25-1021 CM-4 Color Monitor. 

299.95 

225.00 

25-1022 CM-10 Color Monitor. 

459.95 

380.00 

26-3211 VM-2 Monochrome Monitor. 

149.95 

125.00 

30051030 PJB Multifunction Board 512K . . 


310.00 

EPSON PRINTERS 

20001015 Homewriter 10. 

$288.00 

$215.00 

20001025 LX-80 Dot Matrix Printer. 

329.00 

250.00 

20001035 FX-85 Dot Matrix Printer. 

549.00 

385.00 

20001050 HI-80 4 Pin Plotter . 

599.00 

390.00 

20002010 RX-100 Dot Matrix Printer . 

499.00 

400.00 

20002030 FX-286 Dot Matrix Printer. 

799.00 

550.00 

20003020 LQ-800 24 Pin Head Dot Matrix . 

799.00 

565.00 

20003030 LQ-1000 24 Pin Head Dot Matrix . 

995.00 

695.00 

10081010 DX-10 Daisy Wheel Printer. 

299.00 

255.00 

10081020 DX-20 Daisy Wheel Printer. 

459.00 

390.00 

10081030 DX-35 Daisy Wheel Printer. 

899.00 

765.00 


For Technical Questions and Information on our complete line of 
computer accessories and current prices: 

CALL 1-517-625-4161 

FOR ORDERS ONLY CALL 1-800-248-3823 

Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-5, Sat. 9-3 

B. fTlfllN ST PERRSI, IMCH. M8872 




















































































































1322 IFRIGHT$(H(5),1)="H"IRENT2=16 

1324 IFT20J3THENH( 5)=LEFT$ (H( 5 ) , LEN(H(5) ) -1) : GOSUB126P:RETURN 

1326 G0SUB14PP:T=T+VAL(F5):RETURN 

1332 H(5)=MID$(H(5),2,LEN(H(5)-1)):G0T01324 

135P IFXX=256THENCLS:PRINT@125, "SYMBOL TABLE OVERFLOW ":GOT032p8 

1363 IFXX=PTHEN1366 

1364 X9=l:H(5)=F1: G0SUB1412:X9=P; IFXZOXXTHENEl="*D*" :RETURN 
1366 LBL(XX)=F1 

137j? V(XX)=T 
1374 XX-XX+1 
1378 RETURN 
14 (Jj? T=P 

14^4 IFP=1THENPT=XX: XX=PX 
1412 FORXZ=PTOXX-1 

1416 IFLBL(XZ)=H(5)THENT»V(XZ):IFX9THENRETURNELSEG0T01423 
142p NEXT 

1421 IFX9THENX9=j?: RETURN 

1422 El="*U*":T=p 

1423 IFP=1THENXX=PT 

1424 RETURN 
145P F0RXZ=1T087 

1466 IFF2-R4(XZ)THENRETURN 
147P NEXT 

1475 E1="*I* ,, :AI=3:H(2)="PP":H(3)="PP":H(1)="PP" 

148p RETURN 
15j2j2 IFP=PTHENRETURN 
15P2 IFLC!=59THENGOSUB16pp 
1514 IFAD=1THENH(p)=” 

1516 PRINT#3,USING” \\\\ \\\\\\\\ \ \\\ ”;El;LN;H(p) 

;H(1);H(2);H(3);F1;F2; 

152p IFF4=""THENPRINT#3,F3;F5;CHR$(137);F6ELSEPRINT#3,F3;",";F4;F5;CHR$(137);F6 

1522 IFFOO""THENGOSUB185P 

1524 AD=P:LC!=LC1+1 

1528 T»VAL(LN):T=T+1:LN=STR$(T) 

153P LN=RIGHT$ (LN, LEN(LN) -1) 

1532 IFLEN(LN)-5 THENRETURNELSEFORX=LEN < LN)+1TO 5:LN="P"+LN:NEXT 
1536 RETURN 

16PP PRXNT#3,CHR$(12);CHR$(27);”eP";CHRS(2P);"*** ";TIME$; " ";DATE?;" 

***";CHR$(27);"fp#";"PAGE ";PC 

1616 PRINT #3,"ERROR LINE NO. ADDR CODE LABEL MNEMONIC COMM 

ENTS” 

162P PRINT #3,STRINGS(8p,”*"):PRINT#3,:PRINT #3, 

1624 PC=PC+1:LC!=5 
1628 RETURN 

1662 X=p:T=AC:X1=4:GOSUBlipp 
1666 Xl=2:AC=AC+AI:GOSUB15PP 
167p RETURN 

17PP IFX2=-1THEN02=P:E1="*I*"ELSE02=X2*8 
1716 RETURN 

175P H(5)=F3:GOSUB13PP 

1766 X=5:X1=4:GOSUBlipp:Xl-2 

177P H(2)=RIGHT$(H(5),2):H(3)«LEFT$(H(5),2) 

1774 AI=3:G0SUB1662:RETURN 

179p AI=1:G0T01662 

1794 AI=2:G0T01662 

18PP T-010R020R03 

1816 X-,1:GOSUBlipp 

182p RETURN 

185P IFH(l)-=”"THENRETURN 

1854 F0RXZ=PT03:IFH(XZ)O""THENPRINT#2,H(XZ);",";:NEXT 
1858 RETURN 
2PPP 01=64 

2PP8 H(4)=F3:G0SUB12PP 

2P12 G0SUB17PP 

2P16 H(4)=F4:G0SUB12PP 

2P2P IFX2=-1THEN03=P:E1="*I*"ELSE03=X2 

2P24 G0SUB18PP 
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2028 GOTO1790 
2036 01-6 

2044 H(4)-F3:GOSUB1200 

2048 GOSUB1700 

2052 X-l:T-010R02:GOSUB1100 

2056 H(5)=F4:GOSUB1300 

2060 X-2:GOSUB1100 

2064 G0T01794 

2072 H(4)=F3:G0SUB1224 

2080 01-1 

2084 GOSUB1700:02=02*2 
2086 GOSUB1800 
2088 H(5)=F4:GOSUB1300 
2092 GOSUB1766 
2108 RETURN 
2112 01-2 

2120 H(4)-F3:GOSUB1224 

2124 IFX2—1ORX2>1THENO2=0:E1="*I*"ELSE02=X2*16 
2128 03-(XZ-4)*8 
2132 GOSUB1800 
2136 GOTO1790 

2144 XFX2—6THEN01—50ELSEO1—5 8 
2152 GOSUB1800 
2156 GOSUB1750 
2176 RETURN 

2180 01-34:02-(X2-8)*8 
2188 GOSUB1800 
2192 GOSUB1750:RETURN 
2196 01=235:GOSUB1800 
2204 GOTO1790 

2208 01—193:03-(XZ-ll)*4:H(4)=F3:GOSUB1236 

2216 GOSUB1700:02-02*2:GOSUB1800 

2220 GOTO1790 

2224 01-227:GOSUB1800 

2232 GOTO1790 

2236 01-249:GOSUB1800 

2244 GOTO1790 

2248 O1-3:O3-(XZ-15)*8:H(4)=F3:GOSUB1224:GOSUB1700;O2> 
2256 GOSUB1800 
2260 GOTO1790 

2264 IFXZ-17THEN01—195ELSE01—194:02=(XZ-18)*8 

2272 GOSUB1800:GOSUB1750 

2276 RETURN 

2280 01=233:GOSUB1800 

2288 GOTO1790 

2292 IFXZ-27THENO1-205ELSEO1-196:02=(XZ-28)*8 

2300 GOSUB1800 

2304 GOSUB1750:RETURN 

2308 IFXZ—36THEN01—201ELSEO1—192:02-(XZ-37)*8 
2316 GOSUB1800 
2320 GOTO1790 

2324 01-199:H(5)-F3+"H":GOSUB 1300:IFT/8>7THENO2-0:El» 
2332 GOSUB1800 
2336 GOTO1790 

2390 01=4:03-XZ-46:H(4)-F3:GOSUB1200:02=X2*8 
2398 GOSUB1800 
2402 GOTO1790 

2416 01=128:02-(XZ-48)*8:H(4)=F3:GOSUB1200:Q3-X2 
2424 GOSUB1800 
2428 GOTO1790 

2432 01—198:02—(XZ-56)*8:GOSUB1800 
2440 H(5)=F3:GOSUB1300 
2444 IFT>255THENE1="*W*" 

2448 GOTO2060 

2452 01—7:02—(XZ-64)*8:GOSUB1800 
2460 GOTO1790 

2464 01=211:02=(XZ-72)*8:GOSUB1800 
2472 GOTO2440 

2476 01=243:02=(XZ-74)*8:GOSUB1800 
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2484 GOTO1790 

2488 01=0: GOSUB1800 

2496 GOTO1790 

2500 01-118 :GOSUB1800 

25(38 GOTO1790 

2512 01-32 :02=(XZ-78)*16:GOSUB1800 
252(3 GOTO1790 

2524 01=9:H(4)=F3:GOSUB 1224:02=X2*16 
2532 GOSUB1800 
2536 G0T0179(3 

3000 IFFOO""ANDP-C>0THENFRINT#2, "END" ; 

3(3(31 AD-1: GOSUB 1662: IFP=0THENCLOSE1:PX=XX: P=l: G0T088 
3(3(33 CLS : PRINT@131, "ASSEMBLE COMPLETE”; 

3(3(34 END 

3(312 H(5)=F3:GOSUB13(3(3 
3(32(3 AC-T 

3(324 IFF 1<5>" "THENV(XX-1) =T 
3(338 AI=0: GOSUB 1662 
3(342 RETURN 

3(346 H(5)=F3:GOSUB13(3(3 
3(354 IFT>255THENAI=2ELSEAI=1 
3(358 X=1:X1=AI*2:GOSUB1100 

3(36(3 IFX1=4THENH(2) —LEFT$ ( H (1) ,2) :H(1)=RIGHT$(H(1) ,2) 

3(362 G0SUB1662:X1=2:RETURN 
3(366 H(5)=F3:G0SUB13(3(3 

3(37(3 IFFlO”"THENV(XX-1)=TELSEE1="*I*" :T=0 

3074 X=5 :X1»4:G0SUB11(3(3:X1=2 :H(2)=RIGHT$(H(5) ,2) :H(3)=LEFT$(H(5) ,2) 

3(382 AD=1:AI=(3:G0SUB1662 
3(386 RETURN 

3(39(3 H(5)=F3:GOSUB13(3(3 
3(398 AI=T:GOSUBl662:RETURN 
31(32 H(5)=F3: GOSUB 13(3(3 
311(3 F1=F2: GOSUB135(3 

3114 GOTO3074 

3115 H(5)=F3:F3="": 

3124 01=ASC(H(5>):H(5)=RIGHT$(H(5),LEN(H(5))-1):F3=CHR$(01) 

3128 GOSUB18(3(3: G0SUB179J3: F2-" " t F6=" " : F1-" " 

3132 IFH(5)—""T1IENRETURN 
3136 G0T03124 

3200 CLS:PRINT@130,"NO END STATEMENT IN FILE" ; 

32(38 PRINT@175 , "ABORT ASSEMBLE"; 

3212 CLOSE:END 

3220 CLS:PRINT@12(J,"UNRECOVERABLE ERROR IN THE BASIC PROGRAM";;GOTO3208 

3230 IFP-0THENGOTO110 

3232 IFLGI-59THENGOSUB1600 

3234 PRINT#3,F1;" ";F6 

3238 LCI=LC1+1:GOTO110 

9950 FORX-0TO7:READR1(X):NEXT 

9966 FORX-0TO3:READR2(X):NEXT 

9970 FORX-0TO3:READR3(X):NEXT 

9974 F0RX—1T087:READR4(X):NEXT 

9978 RETURN 

10000 DATA "B","C","D","E","H","L”, "M", "A" 

10004 DATA "B","D","H","SP" 

10008 DATA "B","D","H","PSW" 

10012 DATA "MOV","MVI","LXI","STAX","LDAX","STA","LDA","SHLD","LHLD","XCHG”,"POP 
","PUSH”,"XTHL","SPHL","INX","DCX","JMP" 

10014 DATA”JNZ","JZ","JNC","JG","JPO","JPE","JP”,"JM","PCHL","CALL”,"CNZ","CZ"," 
CNC” "GC" 

10016 DATA "CPO" ,"CPE" , "CP" , "CM" , "RET", "RNZ ", "RZ" , "RNC" , ”RC” , ”RPO” „ ”RPE M , "RP" , ”R 
M" , "RST" , "INR" , "DCR” , "ADD" , "ADC" , "SUB" 

10013 DATA"SBB" , "ANA" , "XRA" , "ORA" ,"CMP", "ADI" , "ACI","SUI" , "SBI" , "AN I" , 

10020 DATA "ORI" , "CPI" , "RLC" , "RRC" , "RAL" , "RAR" , "DAA" , "CMA" , "STC" , "CMC" , "OUT' 

","DI","El","NOP","HLT","RIH","SIH","DAD" 

10022 DATA"ENTRY","DATA","EQU","END","ORG","RES","STR" 
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Delphi Bureau 


Uploading Files to Delphi 


I 

I 


L ast month we began our investiga¬ 
tion of the personal Workspace 
area in the MS-DOS SIG on Del¬ 
phi. Primarily, we discussed how to 
upload a file into the Workspace using one 
of the three supported transfer protocols: 
ASCII, Xmodem and Kermit. Now let’s 
take a look at what you can do with a file 
after it’s there. 

One of the most important things, of 
course, is to publish a program in the 
database so that all the other members can 
download it. This can be one of the 
generally excellent “usersupported” or 
“Shareware” programs, or it can be a 
program that you’ve written yourself and 
want to share with others. After all, it’s 
hard not to be proud of a program you’ve 
created, slaving over the keyboard, run¬ 
ning it over and over until it’s just right. 
And it’s a lot more fun when you can share 
your work with others who will appreciate 
it as much as you do. 

After you have entered your Work¬ 
space, the first thing you may want to do 
prior to making a database submission is 
to check the directory to ascertain the 
proper filename of the programs you’re 
about to submit. To do this, you type DIR, 
just as on your own computer. And 
remember, too, that the MS-DOS ques¬ 
tion mark (?) and asterisk (*) wild cards 
work the same familiar way when used 
with the DIR command in your Work¬ 
space. 

After you’ve checked for the proper 
filenames, you’re ready to begin the 
submission process. Type SUBMIT. The 
system responds with a couple of lines of 
instruction and asks if you wish to con¬ 
tinue. Of course, you respond YES, or with 
a simple Y to save yourself a few key¬ 
strokes. 

Now the system asks you how many 
files you will be submitting. One of the 
nice things about the Delphi database 
software is that it allows you to “group” 
related files together under a single de¬ 
scription. Let’s say you have three files 
that you’re submitting together: a com¬ 
piled, executable version of your BASIC 
program; the basic source code itself; and 
a separate file of instructions and docu¬ 
mentation. That’s three, so you respond 
with 3 when the system requests this 
information. 

The system then asks you whether all 
three files are related in such a way that 


they should be listed as a single “group” 
in the directory. In this case, you again 
respond with YES. 

The system then asks you for a “file- 
type,” and displays a list from which to 
choose: program or program pack, news¬ 
letter, article, transcript, documentation, 
data (graphics, etc.) or miscellaneous text. 
Since we’re dealing with a program here, 
the proper response is PROGRAM, or simply 
PRO. 

Now the system asks what topic of the 
database you wish to submit your file to. 
If you’re not familiar with the topics that 
are available, you can enter a question 
mark (?) here and the topics will be 
displayed: 


General Information 
Business 
Home & Games 
Telecommunications 
PCM Collection 
Soft Sector Info 


Archives 
Education 
Programming 
Utilities 
Info on PCM 
SS On Disk 


If your submission happens to be a 
recipe file program, for example,we enter 
HOM to select the Home & Games topic. 

Now a name for the “group/set” is 
requested. This is the name that appears 
in the database directory, but you’re not 
limited to a directory entry as you may be 
accustomed. Here you’re allowed up to 32 
characters, so you can really use a mean¬ 
ingful name, such as RECIPE FILE DAT 
ABASE. 

When you’re finished naming the 
group, you are asked to enter a brief 
description of the file. This is where you 
should write a little paragraph telling all 
about your program: the author’s name, 
what the program does, the specific 
system requirements; anything you can 
think of that the person who uses it may 
need to know. When you’re finished, enter 
a CTRL-Z to close the description entry. 

Now comes the time when you must 
enter “keywords” that describe your 
program. These are simply descriptive 
words that can later be searched on to 
locate programs of similar type. The 
entire directory in a certain topic can be 
extremely long and confusing, but by 
searching on these keywords, you can set 
it to display only those files that are 
similar to something you’re looking for. 


The first keyword requested is the 
“primary” keyword, and must be chosen 
from a select list that has been installed 
by the database manager. At the primary 
keyword prompt, you can once again 
enter a question mark (?) to display the 
choices. In the case of the Home & Games 
topic, the choices are: arcade games, 
adventure games, finance, management 
and miscellaneous. In this case, it looks 
like miscellaneous might be the best 
choice for our recipe file program, so enter 
MISC. 

You can now enter any other keywords 
that you like, the idea being to try to 
imagine what keyword someone else 
looking for a recipe file program might try 
to search for. Some possibilities would be 
“cooking,” “recipes,” “database,” or 
maybe even “food.” You can also put the 
author’s name here and something like 
“1000” if you know the program runs on 
the Tandy 1000. Then members who are 
using the 1000 can start a search on that 
keyword and only those files will be 
displayed. 

Next you are asked for information 
about each of the files. The first request 
is for the filename of the file in your 
Workspace. You found this earlier when 
you checked it in the directory. Then you 
are asked if the file must have any special 
filename when it is downloaded gener¬ 
ally the same as you uploaded it into your 
Workspace, but not necessarily. Finally, 
you are asked for a name to appear with 
the file in the group directory listing 
which, again, can be a descriptive name, 
such as RECIPE FILE DOCUMENTATION. 

This naming process is repeated for 
each of the three files that you are submit¬ 
ting, along with a query as to whether you 
would like it deleted from your Work¬ 
space. When you finish with the filename 
information for each file, the submission 
process is complete. Your file then goes to 
a “preview” area for testing before being 
moved into the open database for the 
members. 

Although going through all this may 
seem like a very long, drawn-out process, 
it really isn’t. After you’ve tried it once, 
you’ll see just how simple it really is. 


— Kevin Nickols 
MS-DOS SIG Manager 
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Feature 


1000/1200/2000/3000 



Improve your numeric-keypad 
entry skills 

Hitting the Right 
Keys 




W hen I started using my new 
1200HD, I soon discovered that the 
function keys to the left of the 
keyboard would be very easy to get accus¬ 
tomed to because they are used so seldom, 
compared with the typewriter keyboard 
portion. 

What I did have trouble with was the 
numeric keypad on the right side. Sure, it is 
a great convenience to have all the numbers 
there and not just spread out across the top 
of the keyboard with the special characters, 
but I never had an adding machine in my 
deprived youth and, consequently, had never 
learned to use a keypad. 

I knew I would eventually pick up a “feel” 
for the new keys, but 1 wanted to learn more 
quickly, so I wrote this little program to 
generate “random” numbers and check on the 
accuracy of my keypad entry. With the 1200 
it was easy to include a timer, so I added a 
section to help keep track of your speed. 

The program is straightforward and sim¬ 
ple, because I don’t have time for some of the 
longer, more sophisticated programs and 1 
think a lot of you probably don’t either. After 
all, this program should make your computer 
use easier and faster; why make it more 
complicated than necessary? 

This is why 1 did not provide for decimals 
and why the average time calculation is only 
approximate. 1 feel that learning the numbers 
is the major problem and most won’t even 
notice where the inaccuracy lies. In any case, 
the numbers are only useful for comparison 
with other runs of the same program. 1 felt 
the extra lines required to correct these small 
shortcomings would just mean that many 
more people would not use the program. □ 

John McCormick started programming 
in 1965 while majoring in physics in 
college, and was formerly employed 
with Wang Labs. He has written several 
reviews for THE RAINBOW. 


By John McCormick 
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The listing: 


1 REM BY JOHN MCCORMICK 11/85 
10 RANDOMIZE 

20 INPUT "SELECT MAXIMUM NUMBER OF DIGITS.. ",N 
25 T =TIMER 

30 X= (INT(RND*<10 a N)>) 

35 CLS 

37 C = TIMER 

40 PRINT, "TOTAL TRIES" NUMBER, "NUMBER WRONG" WRONG "ELAPSED TIME"INT(C-T)" 
SECONDS":PRINT:PRINT:PRINT 

41 IF NUMBER = 0 GOTO 45 

42 PRINT "PERCENT WRONG..." INT((WRONG/NUMBER)*100)"%" 

43 PRINT "AVERAGE TIME REQUIRED FOR ONE CORRECT"N"DIGIT ENTRY..."INT((C-T)/(NUMB 
ER - WRONG))"SECONDS" 

45 PRINT:PRINT:PRINT:PRINT:PRINT 

49 PRINT"NUMBER."X 

50 INPUT "INPUT FROM KEYPAD.. ",Y 
55 NUMBER = NUMBER + 1 

60 IF Y = X THEN GOTO 30 ELSE BEEP 

61 WRONG = WRONG + 1 
65 CLS 

70 PRINT "WRONG, TRY A NEW NUMBER" 

75 FOR A = 1 TO 250 

76 NEXT A 
100 GOTO 30 

200 END GH2J 


SPECIAL 

TANDY 1000 

Multifunction Board 

• 512 K Ram 

• RS-232C Serial Port 

• DMA Controller 

• Clock-Calendar 

*25995 

ADDITIONAL TANDY COMPATIBLE 
PRODUCTS AVAILABLE 
CALL FOR A FREE CATALOG 

Micro Mainframe 4N1® 

11285-E Sunrise Gold Circle 
Rancho Cordova, CA 95670 

(9 1 6) 635-3997 L^I@©][HH 
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MEET THE WIZARD™ 

Quality / Price / Performance Guaranteed 
Easy to use! $29.95 for any one package 
9.95 for each additional 

For TANDY 1000, 1200, 2000, 3000 and Compatibles 

1. RAMDISK — Transform your spare memory into 
superfast disk(s). You specify size and number. 

* NEW * replace your old ramdisk software. 

and Ours has automatic timed backup. 
BETTER Never again lose your ramdisk data. 


2. UNDELETE Plus — Recover deleted files, graphics 
display of directory tree, rename directory, find 
files in any directory, display sorted check files, 
change file attributes, and more (10 programs in 
all). 

3. SNAPSHOT — Instantly save and display up to 99 
text screens. Great for debugging, Help screens, 
etc. 

4. XTEND — Instantly recall, edit and execute your 
last 30 DOS commands. Execute multiple com¬ 
mands with one keystroke. (Macro facilities). 

Makes DOS easier! 

5. GRAFIX — Send graphics screen image to printer. 
You set printout size/density, (for most printers) 

6. FONTIX — Set printer fonts, tabs, margins, etc. 
Automatically produce paginated printouts and 
structured Basic listings, (for most printers) 


WIZARD Utilities 

P.O. Box 714 

Sudbury, MA 01776 


800-622-4070 
800-942-7317 in ILL. 

$3.00 ship & handling 
in Mass add 5% tax 
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Feature 


100/ 200 


Your computer 
turns the tables 
and gives you a 
chance to do some 
deductive reasoning 


Color Code Combo 


By Dan Bishop 


I n Color Code Com¬ 
bo , the computer se¬ 
lects a random se¬ 
quence of colors 
(represented by their 
first letters, such as ‘R’ for 
red, ‘O’for orange, etc.). The 
number of colors used is 
determined by the player at 
the beginning of each game, 
and may range from three to 
eight. The player also selects 
the length of the sequence, 
from three to eight, which 
might or might not match 
the number of colors 
chosen. The computer may 
repeat colors within the se¬ 
quence or may completely 
omit some colors. The bot¬ 
tom line of the display shows 
the colors allowed for the 
current game. 

The player then has 12 
opportunities to guess what 
the coded sequence might 
be. All 12 guesses remain on 
the screen for reference. 
After each guess, the player 
may select Option ‘X’ to go 
back and change the guess 
just entered, or Option ‘E’to 
have the guess evaluated by 


Dan Bishop owns and oper¬ 
ates a computer consulting 
and custom programming 
firm in Buena Vista, Colo¬ 
rado, and teaches computer 
science courses at Colorado 
Mountain College in Lead- 
ville, Colorado . At an eleva¬ 
tion of 10,000 feet, CMC is 
the nations highest institu¬ 
tion of higher learning. 


the computer and end that 
turn. When evaluating a 
guess, the program first 
checks to see how many col¬ 
ors in the guess match colors 
in the secret code. It then 
determines how many of 
these correct colors are lo¬ 
cated in the correct place 
within the sequence. Both of 
these results are displayed 
alongside the guess. 

After several guesses, the 
player should be able to use 
the evaluations presented 
for each guess to deduce the 
correct sequence of colors in 
the code. If the code has not 
been correctly guessed after 
12 tries, the secret code is 
displayed and the game is 
over. The number of colors 


and length of the sequence 
used for a given game may 
be changed at the beginning 
of each round. 

I have found the game to 
be very entertaining for ages 
four or five through adult. 
Preschoolers can be started 
on a three-color by three- 
position game and, with 
help from an adult, can gain 
experience in making logical 
deductions from limited in¬ 
formation. Adults can find 
the eight-by-eight game an 
extremely challenging expe¬ 
rience. And with the use of 
the random color selector 
within the program, seldom 
(if ever) will you find two 
games with the exact same 
secret code. □ 



BAR CODED LISTING ] 

liiiiiniMimiiiniiiniiiinr 


The listing: 

1 REM COLOR CODE COMBO 

2 REM C 1984 By D. Bishop 

10 DIM A$(12),C(12),L(12):CLS:PRINT”COLO 

R CODE COMBO”:A$= n ]## \ \ # #[”:B 

$=”Choices: col loc col lo 

c ":D$=” X E (X:correction E:evaluate) 

11 

20 PRINT@135, "RANDOMIZING": FOR 1=1 TO (V 
AL(MID$(TIME$,4,2))*20+VAL(RIGHT$(TIME$, 
2))):X=RND(1):NEXT I 

100 FOR 1=0 TO 12:C(I)=0:L(I)=0:A$(I)=" 

":NEXT I:C$=" ROYGBPWV" 

110 PRINT@201,"How many colors (3-8)";:T 
$=INPUT$(1):C=VAL(T$):IF C<3 OR 08 THEN 
110 

120 PRINT" --> "C:C$=LEFT$(C$,2+C)+" X 
"+STRING$(8-C,32) 

130 PRINT@281,"How many locations (3-8)" 
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;:T$=INPUT$(1):T=VAL(T$):IF T<3 OR T>8 T 
HEN 130 

140 PRINT"--> "T:FOR 1=1 TO T:MID$(A$(0) 

,I,1)=MID$(C$,2+INT(RND(l)*C+l)):NEXT I 
200 FOR K=1 TO 12:KK=-(K>6):GOSUB 500:PR 
INTC$;:G$="" 

210 FOR L=1 TO T:CL=40*(K-1)+1-221*KK:PR 
INT@CL+2+L,"";:Y$=INPUT$(1):IF Y$="X" TH 
EN L=L-2-(L<2):G$=LEFT$(G$,L):GOTO 250 
220 11=0:FOR 1=1 TO C:IF Y$=MID$(C$,2+1, 
1) THEN II=I:I=C 

230 NEXT I:IF 11=0 THEN Y$=" ":L=L-l:GOT 
0 250 

240 PRINT@CL+2+L,Y$;:G$=G$+Y$ 

250 NEXT L 

260 A$(K)=G$:PRINT@281,D$;:Y$=INPUT$(1): 
IF Y$="X" THEN K=K-1;GOTO 280ELSE IF Y$< 
>"E" THEN 260 

270 GOSUB 400:IF L(K)=T THEN KK=K: K=1 

2 

280 NEXT K 

300 IF L(KK)=T THEN BEEP: P 

RINT@281,"YOU WIN! ";:G0T031 

0ELSE PRINT@281,"SORRY! ANS=";A$(0); 

310 PRINT@302,"TRY AGAIN? <Y/N)";:Y$=INP 
UT$(1):IF Y$="Y" THEN CLS:GOTO 100ELSE I 
F Y$-0-"N" THEN 310 
320 CLS:END 

400 L(K)=0:RT$=A$(0):FOR 1=1 TO T:IF MID 
$(G$,I,1)=MID$(A$(0),I,1)THEN L(K)=L(K)+ 
1 

410 NEXT I:J=0:C(K)=0 

419 FOR 1=1 TO T 

420 J=J+1:IF MID$(G$,I,1)=MID$(A$(0),J,1 
)THEN C(K)=C(K)+1:MID$(A$(0),J,1)=" ":GO 
TO 440 

430 IF J<T THEN 420 
440 J=0:NEXT I 
450 A$(0)=RT$:RETURN 

500 CLS:FOR 1=1 TO 6:11=1+6:PRINT USING 

A$+A$;I,A$(I),C(I),L(I),II,A$(II),C(II) , 
L(II) : NEXT I: PRINT B$: RETURN 


theapware® Label Makers 

for the Tandy™ 1000, 1200, 3000 and compatibles 

LABEL MAKER: Types multiple copies of the same label. Version I is for a fixed platten 
printer and prints on three across labels while Version II prints on one across labels for 
an adjustable platten printer. May be supplied with labels. 

Version I - $30 or $50 with 3.000 labels Version II - $50 or $75 with 5,000 labels 

The Complete LABEL MAKER: Includes all of the above features and can type address 
labels from an internally created mail order file. Mail order file is unlimited and allows a 
card file for each entry. Printing may be limited to only those entries with a specific line 
tag. May be supplied with either one or three across labels. 

Version I - $100 or $115 with 3,000 labels Version II - $100 or $125 with 5,000 labels 
Price includes shipping. VISA/MasterCard accepted. 

Information/Orders call: 

Robert L. Nicolai 800-NICOLAI (642-6524) 

4038 N. Ninth Street or 

St. Louis, MO 63147 314-621-7618 in Missouri 

Tandy is a trademark of Tandy Corporation 
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Super 
Utility 

for PC/MS-DOS™ 

Fixed/Floppy Disk Tools for Tandy 1000, 1200, 
2000, IBM PC™, XT™, AT™, Compaq, AT&T 6300, 
Leading Edge, and many other PC compatibles. 

Data file recovery , disk exploring, 
zapping, and MUCH more! 

Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL V in the wrong sub¬ 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility tor the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. It's really great! 

With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 

In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, make them visible/invisible, etc.), ASCII string search, 
copying sectors to a file, diagnostic sector checking, mapping of 
the FAT table of a file or an entire drive, visual graphics pertaining to 
your system, and full directory and sub-directory editing without 
endless menu-hopping - all in one program. Want to change the 
name of your sub-directrory without copying all your files to a new 
one? Just retype a new name over the old one with SU/PC! The 
sector display mode displays all 512 bytes on-screen at one time 
and allows you to fully explore your disks. SEARCH and CHANGE 
are nice here too! Will find any occurance of a byte or string on your 
disk. Compatible with DOS versions 2.0 - 3.1 on most systems. 
Some computers may require the use of PC-DOS. Color, 
composite, or monochrome video are supported. A great tool for 
fixed disk users as well as floppy. Also compatible with IOMEGA’S 
Bernoulli Box™ storage device (distributed by Tandy as the 
Cartrdge Disk System). SU/PC is a totally new program that fills the 
gaps that PC users have most need of and have asked us for. It's 
aimed at the beginner, the "office user", hobbiests, students of the 
PC, or programmers alike. Unprotected media. 



Super Utility/PC 


only $ 89.95 

See Review in March ’86 PCM 



17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 • 214/733-4475 

Ordering, questions, and support always available on the PowerSoft Sig! 

Type GO PCS-56 from any prompt on CompuServe™! 

Available worldwide through Radio Shack™ 
Express-Order • Cat # 90-0407 

Prepaid or charge card orders (only) include free UPS shipping to US addressesI Blue 
label, COD, or over-night shipping available at extra charge. Visa«MasterCard 
accepted. Canada, please add $3; airmail. Other countries add SI5 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales taxi 
Requirements: IBM PC or compatible running PC/MS-DOS 2.X-3.X, minimum of 128K 
memory, and at least one disk drive. PC-DOS may be required for use. 

IBM, PC, XT, AT are registered trademarks of International Business Machines Corp. 
MS™ is a regstered tm of Microsoft. Radio Shack™ is a registered tm of Tandy Corp. 
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Discover the Artist in You 
with PC Paintbrush 


Software 1000/1200/3000 


PC Paintbrush is the best software 
package I’ve had the pleasure of review¬ 
ing for a long time. I knew, before I even 
made backups, how the program was 
designed to work and couldn’t wait to 
get it running. I have a degree in art and 
love to use quality graphics programs 
on my computers. The reason for my 
excitement becomes more apparent 
when you consider that PC Paintbrush 
is one of the best selling “ MacPaint- 
type” programs available for MS-DOS 
computers. And it’s better than Mac¬ 
Paint because PC Paintbrush is in 
glorious color. 

The system you need to run PC 
Paintbrush includes 320K of memory 
(probably more on the Tandy 1000) one 
disk drive, a graphics display, MS-DOS 
2.0 or above and a mouse, joystick or 
digitizer. On the Tandy machines you 
will want to make sure you have the 
Tandy Mouse or a digitizer installed. 
PC Paintbrush does not work with the 
joystick ports on the front of the Tandy 
1000. 

It Has It All 

If you aren’t familiar with the 
Mac Paint-style of graphics software, let 
me quickly try to explain. You use the 
mouse (input device) to move a cursor 
about the screen selecting tools, such as 
paintbrushes, lines, circles, boxes and 
filled shapes to name a few, and then 
pointing or dragging the tool across the 
graphics area to create different effects 
and colors. Selecting colors is the same; 
point and click from a palette of colors 
at the bottom of the screen. 

The tools available on the main menu 
of PC Paintbrush icons include a spray 
can, scissors, editing box, eraser, color 
eraser, paintbrushes, line, curve, box, 
circle, rounded corner box, and the last 


three again, filled. Also, there are pull 
down menus for editing, changing 
brush shapes, file I/O, editing patterns, 
changing text fonts and sizes, scroll 
bars, undo and more. 

The Standout Features 

Some of the features found in PC 
Paintbrush are particularly impressive. 
In addition to color, PC Paintbrush has 
patterns that may also be edited, saved 
and loaded. This is like MacPaint ; but 
of course, with colored patterns. 

You don’t have to scroll much with 
PC Paintbrush because it is possible to 
click the menu off and work over the 
entire screen with many of the tools. 
However, not all the tools can be “car¬ 
ried” to the full screen with menu off. 

The printer software included with 
PC Paintbrush , Frieze , is another rea¬ 
son I find this package particularly 
impressive. 

One of the nicest features, for my 
money, is the large set of fonts available 
and the different point sizes you may 
select. You may select from a range of 
nine different point sizes which are, of 
course, proportional to the size of 
printout you select using Frieze. Also, 
the styles menu has a full set of selec¬ 
tions including light, medium, bold, 
italics, underline, outline, kerning and 
shadow. The font styles include Compu¬ 
ter, Old English, Roman, Light Roman 
and Script. 

The color eraser is a really interesting 
and powerful feature. With it, you select 
a foreground color/pattern to be re¬ 
placed by a background color/pattern. 
You may change the size of the color 
eraser using the line weight settings. In 
fact, many of the other tools, in addition 
to line and circle functions, have their 
size controlled by the line weight set¬ 
ting. 

Frieze 

Included with PC Paintbrush is a 
program mentioned earlier called 
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Frieze. It is a self-contained program 
for printing PC Paintbrush pictures and 
loading graphics from other software 
into PC Paintbrush for improvement 
and enhancement. 

Frieze will print sections of a graph¬ 
ics screen or the entire screen, normal 
or sideways, reduced or enlarged and 
with a selected left margin width. It also 
allows you to save and restore a screen 
or section of a screen to and from a 
diskette. Frieze works on other graphics 
programs including Lotus 1-2-3, and 
Symphony. The PC Paintbrush manual 
includes complete instructions on using 
Frieze. PC Paintbrush supports a wide 
range of dot-matrix printers and plot¬ 
ters, so Frieze is a valuable addition to 
the software package. 

You may enlarge or reduce a screen 
or section of a screen from one inch by 
one inch up to two feet by 300 feet. 
Frieze attaches itself to DOS, so you 
can invoke it after leaving PC Paint¬ 
brush. It can be modified easily or used 
with its current default settings. The 
defaults can also be changed. You may 
change color patterns for dot-matrix 
printers or set colors for a plotter. 


Installing for the Tandy Mouse 

One minor problem I ran into while 
installing PC Paintbrush concerned 
getting it to work with the Tandy Digital 
Mouse. There is no selection for the 
Tandy Digital Mouse in the input device 
section of the installation program. To 
do this installation you should config¬ 
ure the rest of your system and leave the 
input device as it is shipped — Joystick. 
Then, using Edlin or another MS-DOS- 
compatible editor, edit the first line of 
a file called P5ETUP.DAT. Change the 
character J to an M and save it back to 
diskette. Now, as long as your CONFIG 
.SYS file loads MOUSE.SYS and then 
boots PC Paintbrush , your Tandy Dig¬ 
ital Mouse will work wonderfully well. 
After contacting the courteous help at 
Z-Soft for instructions on doing this 
installation, I believe that in the near 
future subsequent copies of PC Paint¬ 
brush will have the instructions for this 
process included. 

In general, I found the installation 
easy and quick, even though I had to do 
a few extra steps for the Tandy Digital 
Mouse. The installation process is 
completely menu-driven and easy to 


understand. As a final note about the 
installation, PC Paintbrush supports 19 
video graphics cards including one card 
that supports 512 by 512 resolution with 
256 colors and the IBM EGA standard. 
PC Paintbrush also supports 30 differ¬ 
ent printers and plotters. 

In Summary 

I highly recommend PC Paintbrush 
to anyone. It is a well-designed program 
that practically requires no manual to 
operate on first start-up. If you have 
ever had the desire to create color 
graphics in the style of the MacPaint 
software, this package is for you. 

The addition of Frieze makes the 
package even more complete and adds 
to your already growing MS-DOS 
system. The people at Z-Soft are to be 
congratulated for an excellent package 
at a fair price. In addition, they are 
courteous and helpful over the phone in 
providing technical support. 

(Z-Soft, Inc., 1950 Spectrum Circle, Suite 
A-495, Marietta, GA 30067, 404-980-1950, 
$139) 

— Bobby Ballard 




The Handicapper 


Use your Tandy 1000, 1200, 2000 or Model 100/200 

to improve your performance at the track! Separate pro¬ 
grams for Thoroughbreds, Harness horses and Grey¬ 
hounds rank the horses or dogs in each race. Handicap a 
race in minutes, even if you’ve never handicapped a race 
before! 

All the data you need is readily available in the thor¬ 
oughbred Racing Form, harness or dog track program. 
We even provide diagrams showing you where to find the 
information you need! Data entry is quick and easy. Our 
manual shows you how to bet, when to bet and when to 
sit out—one of the real secrets of good handicapping. 

Thoroughbred, Harness or Greyhound Handicapper, 
$49.95 each on T1K disk. Thoroughbred and Harness 
only, $49.95 each on Model 100/200 tape. Any two for 
$74.95, all three $99.95. You can buy a more expensive 
handicapper, but you can’t buy a better one! 


diMMk 

Federal Hill Software 

■■■■ 


8134 Scotts Level Rd. 
Baltimore. MO 21208 



Toll Free (Orders Only) 800-628-2828 

For Information Call ext - 850 

301-521-4886 




fleer/ 


WORD PROCESSING 
TRAINING GUIDE for 

IBM-PC and TRS-80 


Become an expert in the advanced word processing 
techniques in just a few hours. Develop skills that can 
be applied to any of the best selling word processors, 
no matter which system you decide to buy. Includes 
program disk so you learn quickly by doing. The train¬ 
ing guide and training program disk (a $50.00 value) 
will be sent to you absolutely free, with no obligation, 
upon receipt of this filled out coupon. Offer good for 
a limited time. 


LeScript Word Processing Systems 

P.O. Box 361136, Melbourne, FL 32936 
(or call 1-305-259-9397) 

Type of computer system: 

□ IBM-PC/XT/AT/PC jr □ TANDY-1000 

□ TANDY-2000 □ TRS-80 1/3/4/4P 

□ TANDY-1200 □ TRS-80 2/12/16 


Name 


Address 


City State Zip 


Telephone 

‘(Computer names are tradenames and/or trademarks of their respective 
manufacturers.) 
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Hardware 1000 


4N1 — An Excellent 
Way to Upgrade 
Your 1000 

The 4N1-1000 board from Micro 
Mainframe of Rancho Cordova, Cali¬ 
fornia is an excellent way to upgrade a 
standard 128K Tandy 1000 to near its 
full potential. Having only three expan¬ 
sion slots requires careful consideration 
of just what to install. By using a 
multifunction board, a user can save 
those valuable expansion slots for 
future use while at the same time, 
building up the computing power of the 
Tandy 1000. 

With the 4N1 board, you can add 
512K of memory to bring the machine 
up to 640K total. You can add the 
memory in increments of 64K, 128K or 
256K as you choose. The board also 
contains the DMA chip needed to use 
the larger amount of memory. This chip 
also affords more compatibility with 
many of the software programs availa¬ 
ble under MS-DOS. 

Another standard feature included is 
an RS-232 serial port for communica¬ 
tions. 

Options for the board include a clock 
or a combination of clock and Digi- 
Mouse port. 

Support 

When I plunk down my hard-earned 
bucks on anyone’s product, I expect 
their backing if I have a question or 
something goes awry. I believe Micro 
Mainframe fulfills the requirements 
here. I found Mark Menz and his staff 
to be helpful, friendly and most of all, 
knowledgeable. They maintain a voice 
help line and a BBS for buyers of their 
products. The BBS contains tips and 
software, including a RAM disk and 
other utilities. They have been supply¬ 
ing third-party hardware for Tandy 
machines since shortly after the intro¬ 
duction of the Model I. 

As for installation, there really isn’t 
much to do! Just remove the computer 
cover and plug the board directly into 
any of the available slots. The whole 
operation shouldn’t take more than a 
few minutes. The instruction booklet I 


received with the review copy was not 
very complete and led me to make a 
phone call to the company. I was as¬ 
sured that the booklet I had was a pre- 
production version from the very earli¬ 
est boards. Mr. Menz states that the new 
manual is more complete. 

To test the board, I replaced the 
memory board in my computer with the 
4N1 board and let it go to work imme¬ 
diately. I used the serial port to operate 
my PC-Mouse for several days, then I 
used it with my modem for a busy BBS 
weekend. In both cases, it performed 
flawlessly. There were no conflicts 
apparent with the operation of a third- 
party hard disk drive nor with another 
option board I have installed. 

All in all, I can heartily recommend 
consideration of the Micro Mainframe 
board to anyone considering adding 
features to their Tandy 1000. By adding 
640K of memory, a DMA chip, a serial 
port and the optional clock and/or 
DigiMouse port using only one slot, 
you will find you have two empty slots 
to be filled with whatever goodies you 
can dream up. Mark Menz of Micro 
Mainframe also mentioned that addi¬ 
tional options for the board would be 
available; perhaps by the time you are 
reading this review. 

(Micro Mainframe, 11285-E Sunrise Gold 
Circle, Rancho Cordova, CA 95670, 916- 
635-3997, $299.95) 

— Leonard Hyre 


Software 1000/1200/2000/3000 


BDL Roast : Just 
What the Cook 
Ordered 


BDL Roast is a simple straightfor¬ 
ward program which can be described 
as well-done. The documentation is rare 
in its approach to computerese. In other 
words, I found no beef with Bette 
LaswelPs programming. 



Back Issue 
Availability 

Back copies of many issues 
of PCM are still available. 

All back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment 


PCM 

The Falsoft Building 
Prospect, KY 40059 
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O Please send me the following back 
issues: 

(Payment must accompany back issue 


orders.) 

NO. MO. 

1 JULY 

YR. 

’83 

VOLUME 1 

PREMIER ISSUE 

PRICE 

$3.00 

□ 

2 

AUG. 

’83 


$3.00 

□ 

3 

SEPT. 

’83 


$3.00 

□ 

4 

OCT. 

83 


$3.00 

□ 
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NOV. 

’83 


$3.00 
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6 
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JAN. 

’84 


$3.00 
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FEB. 

’84 


$3.00 

□ 
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MAR. 

'84 


$3.00 
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10 

APR. 

'84 

LIMITED 

$3.00 
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12 

JUNE 

’84 


$3.00 

□ 
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’84 

VOLUME 2 

$3.00 
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3 
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’84 
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□ 
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$3.00 
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Seriously, I must admit there was an 
error on the particular disk which I 
reviewed and it would not fully generate 
the files needed for an auto-start, but I 
was able to operate under MS-DOS on 
my Tandy 1000. 

The BDL Homewares series was 
designed for pure IBM machines, but 
run well on the Tandys. The documen¬ 
tation has to be translated from side-by- 
side drives to the up- and down- 
configuration common to Tandy. 

Ms. Laswell has a long background 
of computer programming, and an 
appreciation of the word personal in 
personal computer. She has therefore, 
programmed a series of applications 
which are handy around the home, and 
make the PC something more than a 
glorified toy. 

BDL Roast is just what the cook 
ordered. As one of the cooks in this 
household, 1 appreciated BDL Roast as 
soon as I had it cooking . . . er, going. 
Roast is menu-oriented and very quick 
and simple. You tell the program what 
you want to cook and when you want 
to serve, and the computer tells you 
when to put the meat in the oven and 
at what temperature you should set the 
oven. 

Reviewers must suffer all kinds of 
privation to test a program to the limit 
of endurance, so we ran the test on a 
rump roast which was to be medium by 
7:33 p.m. Roast said to put the beef in 
the oven at 4:11 p.m. I did, and the meat 
was just right. (The potatoes were great 
and the broccoli au-gratin was a work 
of art.) 

Essentially, you choose the type of 
meat; Beef, Lamb, Pork/Ham, Veal, 
Chicken, Duck, Goose, or Turkey, and 
tell how much it weighs. You then 
indicate the degree of doneness you 
desire and the time you want to take the 
meat out of the oven. The program then 
tells you when you must put the meat 
in and what the oven temperature 
should be. 

BDL Roast is a useful program. I 
wish I could think of a way to make it 
resident in a good cookbook database. 
It does exactly what the author intended 
it to — it brings handy purposefulness 
to the home computer. 


(BDL Homewares, 2509 N. Campbell Ave., 
#328, Tucson, AZ 85719, $24.95) 

— Howard Lee Ball 


Software 1000/1200/2000/3000 


The Banner Machine 
— Not Just Another 
Banner Program 

This isn’t the simple little banner 
program frequently found on the local 
bulletin board. I have one that prints 
lettering of various sizes, all of which 
are very odd looking with square 
corners where they don’t belong. The 
Banner Machine is different, it prints 
nice letters with your choice of fonts, 
borders, shades, spacing, justification 
and more. A number of graphics char¬ 
acters are also offered as a special font. 
You can even build your own font with 
selected characters from the various 
fonts included in The Banner Machine. 
It is truly a quality product that would 
be a nice addition to anyone’s supply of 
software. 

The Banner Machine is not copy¬ 
protected and includes batch files and 
instructions for making a backup disk, 
for installation on a diskette with your 
system files and for installation on a 
hard disk. The Banner Machine is 
aimed at individuals, business owners 
and teachers. Within the limitations of 
your printer, it produces professional 
quality signs and banners in a few 
minutes at minimum expense. Unlike 
many products that print graphics, The 
Banner Machine allows some control 
over the quality of print. It takes full 
advantage of your printer’s capabilities. 

Fourteen different IBM PC compat¬ 
ible computers with 256K of memory 
are supported. This includes the Tandy 
MS-DOS machines. Several types of 
printers are also supported, including 
the Radio Sahck DMP-430, DMP- 
2100P, DMP-2200 and DMP-130. 
Printer models made by IBM, Epson, 
Gemini, Okidata and others are sup¬ 
ported. Narrow paper of 8 l A inches can 
have up to eight lines, and wide paper 
of 14 inches can have up to 14 lines. 

You have the choice of normal or 
reverse print (similar to inverse video). 
Bold (double-strike) can be specified. 
Shading can be selected from 20 differ¬ 
ent patterns, which can be placed in the 
background or foreground. 

The print features also include op- 
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tions for printing with stripes and 
borders. The border can be printed with 
the right, left or both ends missing. The 
banner can be printed with sizes set 
assuming there is a border, but without 
the border being printed. Special ad¬ 
vanced features are available for print¬ 
ing with more than one pass through the 
printer. Some of these special features 
require a small pencil mark on the paper 
so it can be started at the same place for 
the multiple passes through the printer. 
There are several examples in the man¬ 
ual with step-by-step instructions for 
using the advanced features with differ¬ 
ent printer ribbon colors. 

Banners can be saved to, loaded 
from, or deleted from a disk. A group 
of banners can even be chained together 
to be printed as a group. 

Several layout choices are offered. 
Left-justified, right-justified, centered, 
even margins and tab are pretty stand¬ 
ard for word processing. However, I 
didn’t really expect to see all of this in 
a banner program. In addition to these 
features, The Banner Machine offers 
inverse and mirror images. Mirror 
images can be used with special heat 
transfer ribbons for printing T-shirts. 


Inverse means the printing is upside 
down and backwards. For a two-line 
banner, the top line can be inverse and 
the bottom line can be normal. This 
allows for folding the banner over to 
have a two-sided sign. These choices are 
even represented in the text window on 
the screen so you can see how your 
banner is programmed. 

The Banner Machine also has many 
font, border, spacing, shading, tone and 
printing options with the capability to 
customize the combination of these 
features. A professional print shop 
could likely do a better job of printing, 
but The Banner Machine does a fine job 
with professional-like results using my 
dot-matrix printer. The Banner Ma¬ 
chine is more than 1 expected in banner 
software and it works very nicely. 

The only thing 1 don’t really like is the 
price. At $149.95, The Banner Machine 
is a little steep for everyday home use. 
The price may well be fair considering 
all the features offered, but I personally 
like to see software priced low enough 
for occasional home use. 1 just can’t see 
many home computer users buying this 
program for an occasional “Happy 
Birthday” banner. However, I expect a 


school or small business would quickly 
get their money’s worth from The 
Banner Machine.. 

(Cardinal Software, 14840 Build America 
Drive, Woodbridge, VA 22191, 703-491- 
6494, $149.95) 

— Robert Jensen 


Software 1000/1200/3000 


Odds Calculator — 
One Step Beyond 
Lady Luck 

If anyone who has ever played Poker 
has thought about it, they know it is a 
game of mathematical odds. The higher 
hands are harder to obtain and they are 
worth more. The skilled player can 
analyze the cards he has been dealt and 
determine what cards to discard to go 
for the best hand. This is done mostly 
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igh power graphics editor, CAD, paint, and slide show 
rograN for the Tandy 1000, 1200, and 3000 with 256X and 
olor graphics card, Over 150 functions plus Multiple pages 
iiiitiple layers, Macro feature, Multiple text fonts, Multiple 
atterns, Mouse support, novice and expert Modes, and More, 


$15.00 trial price includes, conplete prograM, partial 
Manual on disk, and quick reference card, 


$100,00 registration price includes, coMplete printed Manual 
quick reference card, updates at cost and coMplete prograM, 


Shareware! Copy S share, Send check or Money order to! 



OEDMftRE 
P.O. Box 595 
ColiiMbia, MD 21045 
( 301 > 997-9333 


TOLL FREE ORDER LINE 
( 800 ) 245-6228 

ojc dJC jjc Djc 5|c UPGRADES 

FOR MODEL 1200 
and IBM PC 

OUR ‘NEIGHBORHOOD 

PRICE COMPUTER 


STORE* 

$ 149 . $759.29 


MULTIFUNCTION 
CARD (Ser. Par. 

Real Time Clock 

Game Port O—3 8 4 K ) a , a <Cok oo 
each 64K installed $10. $95.^ 

Color Graphics Card 
(with Composite $110. 

& Light Pen Ports) 


$350.29 


NO 

EQUIVALENT 


SECOND DRIVE 
(Exact Match) 

10 MEG 
HARD DRIVE & 
CONTROLLER 
1/2 Height 
Low Power 


Call for 
LATEST 
PRICES!!! 
(800) 
245-6228 


FOR MODEL 1000 


$ 124 . $299.29 

$575.$1,000.99 

1 W _ WARRANTY 
YR. ON ALL ITEMS!!! 

M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 
Mertztown, PA. 
19539 

« PA Res lnclude6%Tax 

PA (215) 682-6855 
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by “gut” feeling. After playing for a 
while, Poker players just know what is 
best — or at least they think they do. 
Many nickles and dimes have crossed 
the card table as a result of experienced 
players going for the “sure thing.” 

You can deal 2,598,960 different five- 
card hands from a deck of 52 cards. The 
transition from a hack player to a 
winner occurs when one can determine 
the odds of every Poker hand and how 

. . the purpose of 
the program is to 
train you to 
recognize the odds of 
getting a particular 
hand . . 

much to bet. Lady Luck is too fickle to 
count on all the time. In the final 
analysis, it is cunning, preparation and 
personal evaluation of other players 
that wins Poker pots. 

To assist in evaluating Poker hands, 
Cheapware (Robert Nicoli) has released 
a program for MS-DOS computers 
named Odds Calculator for Draw 
Poker. What this program is can be best 
described by explaining what the pro¬ 
gram is not. It is not an arcade-type 
game where you play a hand of poker 
against the computer. This is a course 
in the mathematical probability known 
as “combinatronics” as applied to the 
game of Poker. The course consists of 
a booklet and a program disk. 

The booklet is sectioned into chapters 
leading the novice in mathematical 
probability from the assumption that 
they have no knowledge through ex¬ 
plaining how to place your bets to take 
advantage of the odds. 

The first two chapters cover the 
meaning and the elementary principles 
of mathematical probability. While they 
are quite droll and require a lot of 
concentration to understand, the pur¬ 
pose is to instruct the user that Poker 
is not a game of chance, but a game of 
odds. Using these odds in your favor 
results in winning. Nicoli is not a stat¬ 
istician nor does he pretend to be one. 
However, the elementary facts of how 
the odds in Poker can, and will, work 
for you are thoroughly presented. 

The booklet then leads you into how 
to place your bets and how to use the 
program. The computer-based program 
is essentially an odds calculator that 
determines the odds for getting a spe¬ 


cific hand after making a discard. It uses 
the mathematical crunching capabilities 
of the Tandy computers well. Trying to 
figure the complex calculations any 
other way would be extremely difficult. 

As your computer would most likely 
not be welcome as your partner at a card 
table, the purpose of the program is to 
train you to recognize the odds of 
getting a particular hand, how to dis¬ 
card to take advantage of a particular 
hand and, finally, how to bet. 

The program was written for the 
game of Draw Poker. It assumes you 
have been dealt five cards. You first 
enter the designation for each of the five 
cards you drew, then enter the cards you 
wish to discard. After checking for 
input errors, the odds for each Poker 
hand that could be made from your 
draw and discards is displayed. You 
then have the option of printing this 
data or changing the cards you dis¬ 
carded. By comparing the odds, you’ll 
know if the proper discard is made. 


Accessory 1000/1200/2000/3000 


MouseTop — A 
Furry Companion 
for Your PC 

Remember the ads for Jaws II — 
“Just when you thought it was safe to 
go back in the water?” 

Well, just when you think you’ve seen 
everything, it always comes along. And 
here it is: The MouseTop mouse cover. 

You don’t need this little cover that 
fits right over your computer mouse. 
Oh, certainly, it keeps the grime, dust 
and grit off the mouse. But I have 
honestly seen darn few people use 
keyboard, disk drive and (for that 
matter) typewriter covers. Too much 
trouble. 

Those things don’t have something 
that the MouseTop does — it’s cute. 

“What’s that?” someone asked a few 
minutes after it arrived. “It’s a mouse 
cover,” I said. “It keeps my mouse clean 
and warm.” 

“It’s cutef was the reply. “Really cute. 
At last, you have something cute to go 
with all that equipment.” 

OK. I’ve bought laser printers, 70- 
Meg hard drives, jazzy plotters and 
every computer Tandy’s made in the 


This number crunching requires con¬ 
siderable time. Remember, there are 
over 2.5 million possible hands in those 
52 cards. The running time for discard¬ 
ing three cards is 15 seconds, while it 
takes 25 minutes to calculate the odds 
of discarding five cards. While this 
seems like a long time, be happy we 
don’t have Apple computers. The calcu¬ 
lation time for the Apple version dis¬ 
carding five cards is one day. 

By running the program and compar¬ 
ing the odds calculated against your 
guesses, you will know what to do when 
playing without your transistorized 
buddy at your side. 

The cost of this Poker coach is mod¬ 
erate compared to losing in a serious 
Draw Poker game. With printed docu¬ 
mentation, it’s $25. 

(Robert A. Nicolai, 4038 N. Ninth Street, 
St. Louis, MO 63147, 1-800-642-6524) 

— Bruce Rothermel 


past five years. Nothing has brought as 
much comment as this little MouseTop. 

It is cute. Two ears, glasses and a 
shiny black nose. It fits right over my 
computer’s mouse. The “tail” is the 
mouse cord. 

Each MouseTop is hand-made, which 
makes each unique. And it is machine 
washable. 

I like this little varmint and I think 
you’ll like it, too. It does add a touch 
of furry personality to your computer. 

(H&H Enterprises, P.O. Box 2672, Corona, 
CA 91718,714-737-1376, $5.95,20/20 vision 
model [without glasses] $5.49) 

— Lonnie Falk 
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ELECTRONICS 


TRS-80 Model 2000 by Tandy 



/a 


MS-DOS Based 

Computer System 


256K MOD2000 W/MONO MONITOR.898 00 

256K MOD2000 W/COLOR MONITOR. 1198 00 

256K MOD 1200 HD 2 DR. 1499.00 

128K MOD 1000 W/MONO 1 DR. 759.00 

128K MOD 1000 W/COLOR 2 DR.1099 00 

256K MOD 1000 W/HARD DISK. 1439 00 

24K MOD 100 PORT. 31900 

24K MOD 200 PORT. '679 00 

64KMOD4D2DR. 839 00 

512K MOD 6000 2DR. 1849 00 

512K MOD 6000 W/15MEG HD. 2579 00 

70 MEG HARD DISK.2799.00 

35 MEG HARD DISK. 2059 00 

DMP 105 PRINTER. 145 00 

DMP 2200 PRINTER . 1149 00 

DMP 130 PRINTER. 249 00 

DMP 430 PRINTER. 535 00 

DMP 2100P PRINTER. 749 00 

CGP 220 COLOR PRINTER. 449 00 

DWP 510 PRINTER. 549 00 

TRACTOR DWP 220 . 99 00 

TRACTOR DWP 11/510. 15900 

TRACTOR FEED DMP 2100 P. 99 00 

512K MOD 3000 W/20 MEG HD.2499 00 

PARALLEL PRINTER CONTROLLER. 179 00 

PARALLEL PRINTER CABLE . 29 00 

DISK DRIVE, MOD 100-200 . 160 00 

32K MOD 600 PORTABLE. 1149 00 

512K MOD 3000 1 DR. 1819 00 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

( 817 ) 825-4027 

NOCONA ELECTRONICS • box 593 • nocona, tx 76255 




















































































Hardware 1000 


Zuckerboard: 
High Power, 

Low Price 

When you first purchased your 
Tandy 1000, it’s a good bet you decided 
to hold off on adding more memory, 
hoping you could better afford it some¬ 
time in the future. The 1000 is an 
excellent buy by itself, but Tandy’s 
prices on their memory boards are still 
pretty steep. 

The Tandy 1000 comes with 128K of 
standard memory on the motherboard. 
If you purchase the Tandy Memory 
Plus expansion board with 256K, it will 
set you back $319.95; with 512K, 
$519.90 — darn near half again what 
you paid for the whole machine. Add 
their clock option and you’re out 
another $100 (though a mouse con¬ 
troller is included). 

Why does the additonal memory cost 
so much? We all hear every day how 
much prices for 256K DRAM chips 
have plummeted. 

Well, the fact is, it shouldn't cost so 
much. And the Zuckerboard is a high- 
quality, reliable alternative to the high 
prices of Tandy’s expansion memory 
boards. 

Check these prices with the one 
above: The Zuckerboard with 256K 
costs $109; with 512K, it’s $149; and the 
clock/calendar option is $39. 

Significant savings, right? Memory is 
memory — as long as it’s reliable — so 
price and warranty are the main consid¬ 
erations. The Zuckerboard comes out 
ahead on both counts, with a two-year 
guarantee compared to Tandy’s 90 days. 
But in fairness to Tandy, part of what 
you pay for is good, readily available 
service. In case you have a problem, 
there is a lot to be said for the value of 
having a Tandy service center right 
across town. 

The Zuckerboard I installed was the 
512K configuration. With the stock 
128K on the motherboard, this pushes 
the 1000 up to 640K of RAM. The 
clock/calendar unit was included, al¬ 
ready seated in its socket on the board. 

Installation is a snap: you just remove 
the two screws on the front of the 
machine, slide off the cover and remove 


the screw and metal bracket from any 
of the three expansion slots. Then you 
plug the board into the slot and secure 
it with the screw you removed. Brief, 
easy-to-follow instructions are included 
— anything more complex would be 
overkill because the installation is really 
a simple process. 


“. . . the Zuckerboard 
is a high-quality, 
reliable alternative to 
the high prices of 
Tandy’s expansion 
memory boards.” 


When you’re finished, all you need to 
do to test the installation is power up 
and watch the memory check in ROM 
display the grand number — 640K. 
From there on, you know you’re travel¬ 
ing in style. 

If you choose the clock/calendar 
option, it’s nice to know you don’t have 
to sacrifice another of those valuable 


Software 1000/1200/3000 


Software Review . . . 

SmartNotes Stick 
with Your 
Application 

Everywhere I look I see people using 
those “Post-It” notes by 3M Company, 
the little (usually yellow) pieces of 
message paper with adhesive strip that 
stick to (and peel off of) just about 
anything. When the history of office 
communications is written, I suspect 
Post-It notes will go down with the 
invention of the QWERTY keyboard 
and the dictating machine as revolu¬ 
tionary products. Indeed, almost every 
piece of paper I get in my office has a 
Post-It note attached. 

The trouble is that this only works 


expansion slots, as you do with the 
Tandy Digi-Mouse/Calendar board. 
The clock contains two batteries with a 
life expectancy of 20 years and is guar¬ 
anteed to be accurate to within two 
minutes a year for 10 years. The soft¬ 
ware controlling the clock is supplied: 
one program to set it and another for 
inclusion in your AUTOEXEC file to read 
the clock each time the machine is 
turned on or reset. 

Believe me, even if you’ve never 
encountered a time when 128K was a 
limitation, sooner or later you will. 
Many programs now require 256K or 
more to even begin execution — let 
alone room to function at an optimal 
level. When you have enough memory 
to set up a large RAM disk, every disk- 
access intensive application you use can 
be speeded up tremendously. And with 
a clock/calendar installed, you can 
forget about that ridiculous require¬ 
ment of having to look at your watch 
and enter the information by hand every 
time you reset your computer. 

Power, good design, easy installation 
and a very low price: For all this, the 
Zuckerboard is an excellent choice. 

(Advanced Transducer Devices, Inc., 1287 
Lawrence Station Road, Sunnyvale, CA 
94089; 256K, $109; 512K, $149; clock/ 
calendar option, $39) 

— Kevin Nickols 


when you have something onto which 
the Post-It note can be stuck. And, as 
one who uses a computer most of the 
time for writing, note-taking, 
appointment-making and the like, Post- 
It notes are just no help. 

Enter SmartNotes from Personics 
Corporation, which runs on IBM- 
compatible systems. 

SmartNotes is like Post-It notes for 
a computer. With this program, you can 
“attach” notes electronically to just 
about anything on your computer’s 
screen and, thus, flag it for attention 
later on. 

Take, for example, a letter you have 
written. It’s a letter you can use over 
again, if you only change a few things 
here and there — references to a loca¬ 
tion, a certain product and so on. It is 
too much trouble to set it up as a mail 
merge-type document, but you just 
might mess up if you don’t know where 
all the various pieces of information are 
buried. SmartNotes , which is a memory 
resident program, is very much like a 
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pad of Post-It notes sitting by your side. 
All you do is press a key combination 
and, lo and behold, you can “stick” a 
note anywhere on the screen. Then, next 
time you go to that letter, all you have 
to do is call up the notes you made in 
the first place and make the changes you 
need. Presto! 

One of the nice things about having 
a Tandy 3000 with a 20-megabyte hard 
drive is that there is a lot of storage 
space. Add a 10-megabyte disk car¬ 
tridge system, as I have, and you’ve got 
a heck of a lot of storage space. You also 
seem to end up with a lot of files and 
directories that you don’t know any¬ 
thing about! Thanks to SmartNotes , 
you can attach notes to the directories 
(or anything in DOS for that matter) 
just the same as you can attach them to, 
say, letters in an application. Now my 
computer has a neat notated list of 
directories that tells me just what is 
where: no more confusion! 

The really nice thing is that you can 
set up notes with just a couple of key¬ 
strokes. You also have a lot of options 
as well, such as changing the size or 
color of notes, hiding notes, moving 
notes around the screen and changing 


the “context” of a note. 

SmartNotes does not change your 
application’s file, but, instead, writes a 
separate file for the notes themselves. 
Each note then is “attached” to a place 
in your application based on the “con¬ 
text” of the place to which the note is 
to be pasted. There is a default for this, 
and you can usually leave it alone. But, 
as in the aforementioned example, with 
a DOS directory, the context would be 
so long that it would cover several lines. 
If you sorted the directory, the “con¬ 
text” would be wrong and the note 
would not appear. So, you edit the 
context. 

You can also page through an appli¬ 
cation (such as a letter in a word pro¬ 
cessor) using the page up/down keys 
and SmartNotes only stops when a note 
appears on the screen. If no notes are 
found, you are returned directly to your 
application. 

Several utilities are included to list 
and print notes, open files and the like. 
Overall, SmartNotes has neat and well- 
thought out design and structure. 

There is also a special mode for 
attaching notes to spreadsheet cells. 
This is important because, after all, 


spreadsheets were designed to be recal¬ 
culated. When you recalculate, how¬ 
ever, the “context” changes if you are 
using the straight text method of attach¬ 
ment used by other applications. There¬ 
fore, SmartNotes has a different way to 
do things, and this is a big advantage, 
too, because it allows you to recalculate, 
move, reformat and change ranges in a 
spreadsheet and keep all the notes in the 
right place. 

SmartNotes is memory resident but 
does not, as far as I have been able to 
test, conflict with other memory resi¬ 
dent programs — about four of which 
I use together. An important consider¬ 
ation is that it does not seem to care 
whether it is loaded first, last or in 
between — making it possible to accede 
to the requirements of more finicky 
utilities. 

The manual is well-written and uses 
clear and ample graphics. I recommend 
this program very highly. 

(Personics Corporation, 2352 Main Street, 
Building Two, Concord, MA 01742, 800- 
445-3311, $79.95) 

— Lonnie Falk 


Frustrated With the Tyranny of PASCAL? Tired of the Drudgery of BASIC? 

Free Yourself With 

CCSM, the Database Language...<m/ y $59.95 

Compare This Routine to Your Present Language, and See the Difference 

RJD READ "NAME: ", NAM, ! QUIT :NAM*="" 

IF NAM'? 2.A1" , "1A.E WRITE "PLEASE ENTER AS LAST, FIRST MI",! GO RD 
TEL READ "TEL # ", TEL, ! IF TEL 1 ?3N1"-"4N WRITE "NNN-NNNN PLEASE",! GO TEL 
SET A DATA (NAM) =TEL GO RD 

PRT WRITE " NAME",?20,"TELEPHONE #",! SET NAM="" 

LP SET NAM=$ORDER ( A DATA (NAM) ) QUIT :NAM="" WRITE NAM, ?20, a DATA (NAM) , ! GO LP 


This simple program accepts, screens and saves names and phone numbers, sorts 
and prints them. These six lines of code are an example of the extremely compact, and 
familiar nature of COMP Computing Standard MUMPS, the Database Language 
In lines land 2, READ. IF. WRITE and GO should be easy to follow The pattern match 
operator “?” filters for the correct input of alpha characters to make a name 
In line 4. SET ~DA TA creates a permanent global file, with NAM as a subscript The 
data node is SET to the telephone number 

In tine 6. the $ORDER command gets the next subscript in order, from the -DA TA file, 
thereby SETting NAM to the next name in the file. 

CCSM, the Database Language, frees you from the tyranny of typed and restrictive 
languages . NO declarations of variables or data files Look at these Features 

• Full Screen Editor 

• Virtual Memory (routines and variables may be as large as a disk) 

• Multi-User available..up to 15 

• B-Tree File Structure 

• 8087 and BCD Support 

• Exceeds 1984 ANSI Standard MUMPS 

• Transportable from Micro to Mini to Mainframe 

CCSM, the Database Language, is a fast, modern version of ANSI Standard MUMPS, 
developed by COMP Computing. It comes with a 20 year history of development, solving 
database applications. CCSM improves programmer productivity, and efficiency typical 
programs are written in 1/3 the code of BASIC or PASCAL CCSM is an easy to learn 
language and comes with a 250 page manual 


1-800-257-8052 


AMEX. VISA and 
MASTERCARD 

accepted by phone. . _ 

In Texas 713-529-2576 

CCSM, the Database Language, sells for $59.95, and comes with full documentation For 
an additional $15.95, when you order CCSM, well send along the "Cookbook of 
MUMPS", and its disk, (reg. $24.95) containing useful routines and utilities. For charts 
and graphs, order the Graphics disk for $49.95. Multi-user version, $450 Disks are 
non-copy-protected. Requires IBM PC or compatible with 128 K. (Macintosh version 
available $89.95) 


Order by phone, or dip and mail 

1-800-257-8052 

in Texas, 713-529-2576 


AMEX 

VISA 

MC 


card no. 


MGIobal 

1601 Westheimer Suite 201 
Houston, TX 77006 
^exp date 


CCSM, Cookbook, and disks special package $75.90 

CCSM, the Database Language $59.95 

Graphics disk $49.95 

Please add $3 00 tor shipping and handling Texas residents add 6 1/8% sales tax 


street _ 

city 


st 


zip 


IBM PC and Macintosh are trademarks of International Business Machines, and Apple Computer 
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Software 1000/1200/3000 


Key Entry III 
Replaces Keypunch 
Machines 

KeyEntry III is a program that lets 
companies take advantage of the large 
number of PCs available to do the data 
entry jobs previously done by keypunch 
or key-tape machines. 

KeyEntry III performs the task of 
making a personal computer into a data 
entry station, suitable for the most 
demanding data entry jobs. The adap¬ 
tation of the small computer to this task 
means the same machine that is used for 
general business purposes in the day¬ 
time can be used for data entry at night, 


when much of this work is done (enter¬ 
ing the day’s accumulated data). It also 
means the inexpensive, quiet, reliable 
personal computer can replace the old 
keypunch and (nearly as old) key-tape 
machines. 

The most obvious example is the 
numeric keypad to the right side of your 
keyboard. Data entry personnel have 
years of experience with entry pads and 
a non-standard pad is difficult to work 
with. Unfortunately, the arrangement 
on computer keyboards with the ‘7’, ‘8’ 
and ‘9’ keys along the top is not the 
standard that many data entry ma¬ 
chines use. 

This is where KeyEntry III comes 
into the picture: one of its functions 
switches 7\ ‘8’ and ‘9’ with T, ‘2’ and 
‘3’ and moves the zero to the NUM LOCK 
key. The program also automatically 
“locks” the keypad to the numeric 
function and places a lot of standard 
function keys around the keypad. 


These and other options (such as 
setting up for use of the European 
standard AZERTY keyboard) are user 
changeable, and the software even 
activates a numeric keypad in the key¬ 
board’s alphabetic portion to simulate 
a keypunch-type keyboard if desired, or 
emulate an IBM 3741 data entry ma¬ 
chine keyboard. 

After the keyboard, the most impor¬ 
tant aspect of the environment is the 
“form”in which the data is entered. This 
form is what appears on the screen for 
the operator’s reference and is the 
framework for all data entry. KeyEntry 
III provides up to 32 record formats 
within each job. 

Since KeyEntry III is primarily de¬ 
signed for rapid, continous entry of 
similar data, the forms the user creates 
can include a number of tests that sound 
a warning if the entered data couldn’t 
possibly be correct; for example, if 
numbers get into the “name” area, or 
too many numbers are entered into the 
“date” field. 


One thing of prime importance in 
entering data is accuracy. The time- 
honored method of verifying correct 
entry is for either the same operator or 
another to re-enter the data while it is 
checked against the original entry. 
KeyEntry III performs this task with an 
option of locking the keyboard each 
time an exception is found in the en¬ 
tered data until the error is acknowl¬ 
edged by the operator. 

When verification of a job is inter¬ 
rupted for any reason, the operator can 
ask the program to indicate the next 
information due to be verified. KeyEn¬ 
try III performs this and other search 
functions to facilitate operator effi¬ 
ciency. 

The on-screen format for data entry 
may be explicitly specified for each job, 
including field length from one to 77 
and the type of characters acceptable in 
each data field. 

KeyEntry III also permits various 


checks to be made on the entered data, 
such as testing a date for numbers 
outside possible correct values and 
many other user-specifiable tests. The 
setup may also specify certain fields as 
non-skippable — the operator can’t 
bypass specified fields by pressing 
ENTER without data. 

Various “duplication” methods can 
be specified for the data fields to speed 
up entering identical or similar data. 

An alternative to the usual two-pass 
verification mentioned above is the 
reverse entry method that can be spec¬ 
ified with this program. In this method, 
the program will not accept data en¬ 
tered into specified critical fields until 
they have been entered once in the 
regular manner and immediately re¬ 
entered in the reverse order. This meth¬ 
od of verification is especially useful in 
speeding up entry when a lot of data is 
being entered but only a small portion 
of the data is critical. 

One of the more useful methods of 
testing for correct data is to set up a 
table and accept only data that matches 
what is in the table (or doesn’t match). 
If you have a number of warehouses, 
each with a different code, the simplest 
method of ensuring a correct entry for 
that field is to build a table of the valid 
codes and specify entries in the field 
must match a valid code located in the 
table. This is easy to do with KeyEntry 
III , and the table of two-letter state 
postal codes is already built into the 
program. 

Since this software is designed to 
transfer data from paper to standard 
machine-usable format, it would be of 
little use if it could only record data in 
the standard ASCII format used by 
MS-DOS machines. Much “data 
crunching” is still done by the large 
mainframe computers, and KeyEntry 
III provides an option to store data in 
IBM’s EBCDIC, which is the standard 
used by most mainframe computers. 

There are a number of other features 
contained in KeyEntry ///(too many to 
list in a review). They all are designed 
to make data entry fast and accurate 
and are a great advance over the old 
keypunch machines where you could 
only enter the data and re-enter it in a 
two-pass verify with no other method of 
machine testing for its correctness. 

KeyEntry III also keeps a complete 
file of operator statistics to help man¬ 
agement monitor operator efficiency. 

Although the program I received 
worked flawlessly, there are some cur- 


“. . . the forms the user creates can include a 
number of tests that sound a warning if the 
entered data couldn’t possibly be correct . . .” 


June 1986 PCM 111 












1000/1200/3000 


ious oversights for a program in this 
price range. In one of the demonstration 
programs, “numeric only” was spelled 
”)nwmgric!ooly)” — a rather curious 
lapse for a program intended to speed 
precise data entry. A number of other 
careless entries were also found. 

A far more disturbing problem be¬ 
came obvious when I tried to read the 
documentation. There are many pages 
out of order and even more completely 
missing. I called SCS and they informed 
me there had been some trouble with 
their printer, but the problem had been 
corrected. They immediately shipped 
me a new package with a later version 
of the program. 

The new package also had a number 
of pages missing from the documenta¬ 
tion. I again called SCS and they for¬ 
warded the missing pages. SCS is aware 
of this documentation problem and 
assured me they are correcting it as 
quickly as possible. 

(Southern Computer Systems, Inc., 2732 
Seventh Ave. South, Birmingham, AL 
35233, phone order 800-533-6879, $895, $35 
for a working demo package) 

— John McCormick 


Software 


Timeslips — Because 
Time is Money 

If you’ve ever had the dubious plea¬ 
sure of paying an attorney or consultant 
for their services by the hour, you know 
the true meaning of the cliche “Time is 
Money.” And for those professionals, 
consultants, engineers, lawyers who bill 
their services by the hour, inaccurate 
recording of their time and other bill- 
able expenditures may result in a loss of 
money. 

Without accurate records and an 
accurate way of tracking projects and 
staff involvement, it is difficult to 
determine which projects are generating 
income, which are profitable, and where 
each employee’s time is dedicated. 

Inaccurate billing also causes lost 


credibility with the client. For the 
professionals for whom “Time is 
Money,” accurate management and 
tracking of time is critical. 

To aid those professionals there is 
Timeslips from North Edge Software. 

Timeslips allows users to track their 
time and expenses with “pop-up” 
(memory-resident) stopwatch screens, 
or enter time and expense information 
from their records; prepare customized 
bills with user-definable billing phrases 
and aged receivables; and generate 
several types of business reports and 
graphs. 

When Timeslips is used as a memory- 
resident program, it pops up over other 
programs at the touch of a user- 
definable key. This lets users access 
Timeslips (to time a phone call, for 
example) and then resume their work 
(word processing, financial analysis, 
etc.) at exactly the point they left it. 

Timeslips can track up to 240 users 
or operations simultaneously and keep 
up to 32,000 individual time or expense 
records per directory. The number of 
directories is limited only by disk space. 

On each “timeslip” — the actual on¬ 
screen, automated time record — users 



EXPAND THE TANDY 2000® 
TO 


OF DOS ADDRESSABLE RAM 
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★ ★New Products Available Soon^ ★ 
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can specify billing rates, project descrip¬ 
tion, projected completion time, refer¬ 
ence code, date and time. Users may 
customize the headings on the timeslip 
to fit their profession or application. 

In addition to tracking time expendi¬ 
tures, Timeslips allows the user to track 
expenses by each project and rebill, if 
appropriate, these expenses to the 
client. 

Individual timeslips can be grouped 
together by project, client or any other 
criteria to generate appropriate billings. 

When generating a bill, Timeslips lets 
the user format custom billings from the 
data contained on the timeslips. Any 
data shown on the bill can be specified. 

In order to determine if their business 
is running efficiently, if they are spend¬ 
ing more time on flat fee work than the 
flat fee justifies, if their hourly rate 
covers overhead and leaves enough to 
earn a living, if they are going over 
budget on a project, or if their highest 
paid employee brings in the most rev¬ 
enue — Timeslips produces several 
reports and graphs that may be sent to 
a screen, printer, disk file (in ASCII 


image format), or spreadsheet or data¬ 
base programs (such as Lotus 1-2-3 or 
dBase HI). These reports and graphs 
include: 

• Detail Report — Details the entire 
content of each timeslip selected includ¬ 
ing subtotals and grand totals. 

• Summary Report — Four types: 
user totals, account totals, activity 
totals and account balance summary 
with aging. 

• Graphics — Bar graphs and pie 
charts with up to eight levels of infor¬ 
mation. 

• Client Billing Worksheet — sum¬ 
marizes new activity, unbilled timeslips 
and expenses, unposted payments, 
aging history and most recent bill date 
and balance. 

• Client List — Alphabetically 
sorted by name with address, phone 
number and client number. 

• IRS Report — Helps justify a 
computer as a business expense by 
keeping a log of business usage. 


Since it’s not practical to carry your 
MS-DOS computer with you as you 
travel, Timeslips contains a nifty low- 
tech way to note your activity and 
expenditures until you return to your 
computer. Little timeslips that replicate 
your Timeslips data entry screen are 
provided on preprinted 3M Post-It-type 
sheets. 

There’s good and not-so-good news 
regarding operating Timeslips. The 
good news is that North Edge Software 
has listened to the early users of the first 
release of the program and has revised 
the program to allow it to be applicable 
to many professions. The screens and 
reports can be customized to reflect the 
terminology and reporting needs of the 
user. The flexibility and adaptability of 
Timeslips is impressive, which brings up 
the not-so-good news. 

It takes awhile to familiarize yourself 
with the system and to customize the 
program by loading your company, 
customer and billing data and format¬ 
ting the reports and invoices to meet 
your needs. This is now complicated by 
the current situation where the instruc¬ 


tions for the new version (2.1) are 
contained on a README file on one of the 
disks. It is necessary to go back and 
forth between the original documenta¬ 
tion and the 21 pages printed by the 
upgrade. However, North Edge has 
assured me the new manual will be 
released by the time this review is 
published. 

On-screen help is available at any 
time to the user, and prompts help the 
user to determine the various options 
available. If the registered user is still 
having difficulty, North Edge has free 
telephone customer assistance availa¬ 
ble. Once the user has familiarized 
himself with the program, loaded it with 
his data and customized Timeslips to his 
needs, operation is quite easy. 

The overall quality of the program is 
excellent. Since this program retails for 
only $99.95 and has the operating 
appearance of some of the more expen¬ 
sive business programs, making the 
decision to purchase Timeslips is easy. 


If you bill for your time and are man¬ 
ually tracking your business’ time and 
material expenditures, the payback for 
Timeslips will be virtually instantane¬ 
ous. 

(North Edge Software, P.O. box 286, Ham¬ 
ilton, MA 01936, 617-468-7358, $99.95) 

— Bruce Rothermel 


Software 1000/1200/3000 


Wishbringer — A 
Clever and 
Challenging 
Interactive Fiction 

I’d like for people to know I don’t go 
around saving beautiful princesses all 
the time, though I must admit it makes 
an interesting change of pace from my 
normal daily routine. 

Unlike many other Adventure games 
concerning medieval quests, Wish¬ 
bringer started me in modern times as 
a lowly postman working for the op¬ 
pressive post master of the town of 
Festeron. My latest assignment is to 
deliver an important letter to the Mag- 
ick Shoppe far outside of town. My 
boss, Mr. Crisp, informs me (in his most 
condescending tone) that should this 
piece of mail not reach its destination 
by 5 p.m., my life expectancy will 
shorten drastically. (He actually uses 
much harsher language.) 

I know about the old adage “Neither 
rain nor snow nor sleet nor gloom of 
night . . .”, but no one should have to 
go up against the town librarian’s 
deranged poodle! However, with a little 
resourcefulness, I outwitted the fero¬ 
cious little canine. All the rest of the 
long way to the Magick Shoppe, I 
explored the surrounding countryside, 
much to the consternation of Mr. Crisp, 
who could evidently detect my goofing 
off from miles away! He also had very 
clever ways of conveying his displeasure 
to me regardless of how far away I was. 

Reaching the Magick Shoppe well 
within the allotted time, I found out the 
significance of the letter which was my 
charge. I was unsure about whether I 
liked the store’s strange proprietor or 
the mysterious gift she offered me. 

As weird as the aforementioned hap- 
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penings were, even stranger encounters 
lie within the wonderfully exciting and 
funny world of Wishbringer. Not the 
least of which was a transition from the 
modern world to the days of old and the 
dangers which awaited therein. Of 
course, there was also a quest to be won 
— it wouldn’t be an Adventure game 
otherwise. 

Though this is a totally-text Adven¬ 
ture with no graphics, it is one of the 
most thoroughly enjoyable pieces of 
interactive fiction I’ve come across. The 
smoothness with which the plot un¬ 
folds, the vivid descriptions, challeng¬ 
ing obstacles and clever humor make 
Wishbringer a fun diversion which can 
entertain both young and old for many 
evenings. 

(infocom, 125 Cambridge Park Drive, 
Cambridge, MA 02140 617-492-1031, 
$39.95) 

— Rick Boozer 


Software 1000/1200/3000 


Media Master Plus 
Helps Bridge the 
MS-DOS CP/M 
Compatibility Gap 

1 bet everyone wishes they could 
“master the media.” Just think, your 
name in lights, newspaper, television, 
radio. As 1 opened the package I had 
received in the mail earlier, I imagined 
I would find a book and maybe a 
cassette tape called Media Master 
which would lead me to instant star¬ 
dom. Instead, 1 found a software pack¬ 
age Media Master Plus by Intersecting 
Concepts encased in a nice plastic 
portfolio containing a 62-page manual 
and a single diskette. Oh well, stardom 
must wait. 

Media Master Plus is a disk-to-disk 
format conversion utility. The “Plus” 
portion adds an interesting module 
called ZPj EM from Livingston Logic 
Labs. This module allows you to emu¬ 
late Digital Research’s CP/ M operating 
system on your MS-DOS computer. 

Media Master comes in several ver¬ 


sions for different “host” computers. I 
reviewed the version for the IBM-PC 
and compatibles. System requirements 
are 192K (256K on a Tandy 1000), one 
floppy drive and another floppy, a hard 
disk or a RAM disk with at least 128K. 
A printer is optional. 

The program comes set up for two 48- 
TPI double-sided drives. You may select 
up to 16 physical drives and assign them 
any logical drive letter. The drives may 
be set up as 48- or 96-TPI, single- or 


double-sided, high-density, or system 
drives. A system drive is a hard disk or 
a RAM disk. 

The program is completely menu- 
driven and the manual is rarely needed. 
Media Master Plus uses a filespec 
convention identical to that of MS- 
DOS and wild card characters are 
allowed. 

You might find yourself asking why 
a program like Media Master Plus is 
even needed. It serves three purposes: 




Stick it 


Stick pop-up notes to individual cells 
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transfer of files between MS-DOS disks 
and any of approximately 140 other 
CP/M disk formats; transfer of files 
from one CP/M format to another 
using the host computer; and CP/M 
emulation on the host computer. 

You may use programs such as Word¬ 
Star and dBase II on MS-DOS and CP/ 
M machines and easily transport your 
data from one to the other. 

CP/ M has been around for years and 
is considered by many as the defacto 
standard eight-bit 8080/Z-80 operating 
system. Programs that run under CP/ 
M are easily transported from one CP/ 
M machine to another just as MS-DOS 
— almost. Although the operating 
system is standard, the disk format is 
not. Only 8-inch CP/M disks can be 
read on any CP/ M computer using 8- 
inch drives. The smaller 5!4-inch for¬ 
mats were left scattered to the wind. 
Thus, the 140 possible choices. Media 
Master Plus now allows you to move 
the software you need to your own disk 
format. 

Media Master Plus allows you to 
emulate an eight-bit CP/M environ¬ 
ment on your 16-bit 8088 computer. 
This allows you to run a host of CP/ 
M software on your Tandy 1000 as in 
my case. You no longer have to throw 
away your old software when you up¬ 
grade to a 16-bit computer. 

Media Master Plus contains its own 
command line processor and batch file 
operation mode. The command line 
processor lets you start the program and 
specify your menu choices in one step. 
An example would be MM 2ba)N8 
ENTER. This starts up the program, 
selects Option 2 to format a disk in 
Drive B using Selection A from the first 
format option menu. 

Included on the Media Master Plus 
diskette are four files used to emulate 
the CP/M operating system. They are 
identical except for the terminal emula¬ 
tions they perform. One contains no 
special terminal emulation while the 
other three are for a Zenith HI9, an 
Osborne and a Kaypro teminal. 

The emulation package will appar¬ 
ently run most CP/M software. The 
following types of programs can, in 
general, be run under ZP/EM: 

• Non-system utilities: assemblers, 
editors, compilers, interpreters and 
applications programs. 

• Games — most BASIC and compiled 
BASIC 

The following cannot run under ZPj 
EM\ 


• System- or hardware-dependent util¬ 
ities: DUMP, MOVCPM, SVS and direc¬ 
tory utilities. 

• Programs that directly access or 
modify any BIOS data tables, the 
BDOS or CCP. 

• Programs that set up their own con¬ 
sole interrupt handlers, clock inter¬ 
rupt handlers, etc. 

• Programs that use Z-80 opcodes. ZPj 
EM currently supports only 8080 
opcodes. 

In order to test all these features I 
enlisted the help of a friend and his 
trusty Tandy Model 4P. Armed with 
this, Radio Shack’s CP/M Plus , Mon¬ 
tezuma Micro’s CP/M and a version of 
WordStar for CP/M, I embarked on 
my perilous tests. 

First, I logged in a couple of disks and 
read their directories. This worked 
without fail in standard CP/M format. 
Next I formatted a CP/M disk and 
copied an old MS-DOS WordStar file 
onto this newly created disk. My friend 
was able to read this file using his CP/ 
M WordStar with no problem. The last 


Book 


1-Hour 

Telecomputing — A 
Crash Course in 
Communications 

Telecomputing is using your compu¬ 
ter and a modem to communicate with 
other computers via the phone line. 1- 
Hour Telecomputing is a novice-level 
book designed to be read in about an 
hour and is subtitled A Crash Course in 
“On-Line” Computer Communica¬ 
tions. This book is for those who know 
nothing about telecomputing and want 
to find out about it quickly. It is concise, 
clear, covers the essentials, and contains 
only five chapters and four appendices. 
Do not let its size mislead you into 
thinking it’s not worth reading. This 
book contains a lot of valuable informa¬ 
tion even for seasoned veterans. 

The first chapter covers what you can 
do with your computer over the phone 
and includes a very good overview of 
the vast number of available services, 


thing I did with these disks was to move 
files back and forth between the two 
different CP/M formats. This worked 
perfectly. 

Now, the ultimte test. Can I run CP/ 
M software on my Tandy 1000? First I 
attempted to run WordStar. This was 
my first failure. Apparently, the version 
of WordStar we were using was written 
using Z-80 opcodes because I received 
an “invalid or Z-80 opcode encoun¬ 
tered” error. After that I tried running 
the standard editor (ED) and assembler 
(RSM) modules of CP/M and they ran 
fine. 

Media Master Plus , by Intersecting 
Concepts, is an ideal package for people 
having access to both MS-DOS and 
CP/M computers. It is extremely ver¬ 
satile and the emulation package is 
worth looking into. The cost of this 
package is quite trivial compared to its 
many benefits. 

(Intersecting Concepts, 4573 Heatherglen 
Ct., Moorpark, CA 93021, $59.95) 

— Larry Birkenfeld 


such as databases, shopping, banking 
and local bulletin boards. This intro¬ 
duction also covers what you need to get 
started: a modem, interface card, ca¬ 
bles, software, etc. 

Chapter Two contains one of the best 
explanations of serial communications 
I have come across in the three years I 
have been using telecommunications 
technology. Here you will find every¬ 
thing you need to know about parity, 
stop bits, duplex and all those other 
technical terms associated with tele¬ 
computing. After reading this chapter, 
I felt more at home with these terms 
associated with the use of modems, 
telephones and computers. 

The next chapter is the next logical 
step past serial communications — the 
modem. This chapter clearly explains 
what a modem does and all the myriad 
of features available such as auto-dial, 
auto-answer, Baud rates and acoustical 
versus direct-connect. The chapter ends 
with sound recommendations on choos¬ 
ing the modem that is right for your own 
application. 

What good is a modem without soft¬ 
ware to control it? Chapter Four con¬ 
tains the answer and much more on 
what role software plays and how it can 
be used. Many more telecomputing 
terms are explained, such as uploading, 
downloading, XMODEM and ASCII 
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codes. The authors again give sound 
advice concerning choosing the right 
software for your needs and the differ¬ 
ences between the countless types of 
communications programs available. 
While this chapter does not recommend 
a specific product, enough information 
is given to make an intelligent choice. 

The last chapter gives a brief listing 
of available services and a sampling of 
names and addresses where more infor¬ 
mation can be obtained. While not 
comprehensive, there is enough detail to 
give the reader a taste of what some of 
the major services such as CompuServe, 
Delphi and The Source are all about. 
One of the appendices contains a more 
complete listing of services available, 
where to contact them and the cost. The 
chapter ends with some useful tips to 
remember when using some of these 
services. 

The four appendices contain a glos¬ 
sary of terms, ASCII codes, the DB-25 
connector and its pin functions and 
listing of telecomputing resources. 
These appendices complement the rest 
of the book very nicely and serve as a 
reference for later use. 

Overall, this book contains all the 


information needed to get started with 
telecomputing. The only regret I have is 
the price tag of $19.95. The book is 198 
pages and not much larger than the 
popular paperback novels. It looks as if 
it was written and printed on a home 
computer and contains no photos and 
very few drawings or illustrations. 
Visually, it is not too appealing, but it 
is well-organized with a great index and 
table of contents. 

As an avid reader of computer books, 


Software _ 100/200 


X-TEL Adds 
XMODEM 
Communication to 
Tandy 100/200 

Sigea Systems has developed a ter¬ 
rific communications package for 
Tandy Models 100 and 200. X-TEL 
works as a stand-alone package, or as 


this one is a bit over-priced for me. But, 
if you want to learn about telecomput¬ 
ing quickly and can spare the cash, 1- 
Hour Telecomputing can get you 
started. 

(Authors: Roger C. Alford, Robert Retelle 
and Thomas Wnorowski. Published by IM- 
Press, 1412 Rosewood, Ann Arbor, MI 
48104, $19.95 ) 

— Tim Birtcher 


a sidekick to Telcom or Sigea’s MS- 
DOS program. Telecommuter. X-TEL 
allows uploading and downloading of 
files using XMODEM protocol and 
adds some simple text editing functions. 

In addition to document (.DO) files, 
X-TEL transfers BASIC language files 
(.Bn) and machine language programs 
(.00). Spreadsheet files and other 
special data files that are equivalent to 
.CO files can also be transferred. 

Although the program uses only 
2,800 bytes, a system with 16K min¬ 
imum RAM is recommended. The soft¬ 
ware comes on cassette and on a floppy 
disk, and can be downloaded to the 
Tandy 100 or 200 by either method. 


Submitting Material To PCM 

Contributions to PCM are welcome from eve¬ 
ryone. We like to run a variety of programs that 
will be useful/helpful/fun for other Tandy Portable 
and MS-DOS computer owners. We now support 
the Tandy portable models 100, 200 and 600 and 
the Tandy 1000, 1200, 2000 and 3000 MS-DOS 
computers. 

Program submissions must be on tape or disk, 
and it is best to make several saves, at least one of 
them in ASCII format. We’re sorry, but we do not 
have time to key in programs. All programs should 
be supported by some editorial commentary 
explaining how the program works. Generally, 
we’re much more interested in how your submis¬ 
sion works and runs than how you developed it. 
Programs should be learning experiences. 

Pay for submissions is based on a number of 
criteria. The rate of remuneration will be estab¬ 
lished and agreed upon prior to publication. 

For the benefit of those who wish more detailed 
information on making submissions, please send an 
SASE to: Submissions Editor, PCM, The Falsoft 
Building, P.O. Box 385, Prospect, KY 40059. We 
will send you comprehensive guidelines. 

Please do not submit programs or articles 
currently submitted to another publication. 

If you feel qualified to review software and/or 
hardware products for computers covered in PCM, 
send us your name, address and phone number; we 
will send you a questionnaire form and a copy of 
our reviewer guidelines. 


For Your MSDOS Computer 
Tandy 1000/1200/2000/3000 and PCs 


RAMDISK 


Use spare memory to simulate one or more super—fast 
disks. Any size. Greatly speed up existing applications. 
Appears to programs as a disk, but gives instant 
access. Highly efficient, compact, and thoroughly tested. 
Includes program to install and change RAMDISK size, 
and RAMDISK I/O access report. 


FULLBACK 


A Perfect File Backup System !!! 

Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one, several, or ALL 
subdirectories. Backup modified only , or ALL files. 
Keeps perfectly organized backups — backup structure and 
file format are identical to original. Supports backup by 
date, multiple backup copies, large files (up to 32MB). 
Far superior to DOS BACKUP, easier to use, and much 
more reliable . Absolutely a MUST for hard disk users. 


HIP-POCKET HELPERS 


The ALPS Hip-Pocket Helpers is a collection of 
powerful and easy to use utility programs. They 
include a slick Directory Tree, a sorted 5-across directory 
display, a sophisticated keyboard substitution aid (only 5K 
of RAM), utilities to search through ALL directories for 
file names or even strings within a file, and much, much 
more. 29 utilities in all. Call or write for info. Price 
and performance you can’t find elsewhere. 

ALL ALPS Software is Fully Guaranteed III 

Full Customer Support on our Hotline — 303—687—1442 

Call or Write for our complete catalog of products. 


ALPS 

1502 County Road 25 
Woodland Park, Colorado 80866 
800-232-ALPS (Toii-Fr..) 
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X-TEL reserves 2.7K. RAM in addi¬ 
tion to the space occupied by the two 
program files, since this space is needed 
only during program execution. Be¬ 
cause X-TEL occupies a non- 
relocatable portion of high memory, it 
can be used in conjunction with other 
low-memory machine language pro¬ 
grams. 

One of the problems I have with my 
Tandy 100 is saving machine language 
(. CO) files. The BASIC and text files can 
be transferred between the 100 and my 
desktop computer, but certain machine 
language files must be saved on tape. 
With X-TEL , the need to save programs 
on cassette tape is history since any file 
can now be transferred to a disk on a 
desktop computer. 

I use my 100 frequently for business 
trips and consume every bit of the 32K 
RAM for my programs and notes. If my 
Model 100 is approaching maximum 
memory capacity and I want to transfer 
a basic program, sometimes I don’t 
have enough room to translate the file 
into ASCII and send the file to the hard 
disk. With X-TEL' s XMODEM pro¬ 
tocol, I can save the file directly to the 
remote computer in BASIC language and 
move it back to the 100 without wasting 
time and memory converting either file 
into ASCII. 

X-TEL has some useful online fea¬ 
tures. If you’ve forgotten the name or 
extension of a file to upload, a function 
key combination allows you to see the 
names of files in RAM. Also shown are 
the file sizes and amount of free mem¬ 
ory. This is very useful if the file to be 
downloaded is large and you’re not 
certain if there is enough room in the 
portable to accept the entire file. If more 
space is needed, another function allows 
you to delete files. 

You even have access to the text 
editor while online in terminal mode. 
Characters coming from the remote are 
held in a 64-character buffer while 
working in the text mode. The X-TEL 
issues an XOFF after the first 40 char¬ 
acters and, if the software for the remote 
computer supports XON/XOFF data 
flow control, no data is lost while 
editing a file. 

Using X-TEL on my Model 100 and 
the “freeware” program Procomm on 
my Tandy 1200,1 tried several machine- 
to-machine transfers. I was very im¬ 
pressed with the speed of transfer and 
the ability to transfer BASIC and ma¬ 
chine language files back and forth with 
no problem. When X-TEL completed 


the successful transfer of a file using 
XMODEM protocol, it beeped to let 
me know it was ready to download 
another file. 

This is one of the most useful pro¬ 
grams I have seen for the Tandy porta¬ 
bles, and X-TEL certainly eliminates a 
lot of the frustration I encounter with 
cassette storage. Now everything 
transfers quickly and error-free between 
my laptop and desktop computers. 

(Sigea Systems, Inc., 19 Pelham Road, 
Weston, MA 02193, sales 617-647-1098, 
applications hotline 617-647-1099, S50 plus 
$5 S/H) 

— M.J. Batham 


■■■ 



| Software 

1000/1200/3000 




Electric Envelope 
Aids File Transfer 

Finally finished! Now, 1 will just take 
my spreadsheet, graph and document 
and drop them in the old “electronic 
mail box” and in no time flat they’ll go 
from coast to coast to the home office. 
What’s that? You can’t deliver my mail! 
What happened to that old saying “The 
mail must go through’? I see, you only 
accept ASCII numbers from 32 to 127. 
What is this ASCII stuff anyway? Oh! 
A special code computers use for trans¬ 
mitting information over data lines. 
You say I need an envelope, too? 

At that very instant an idea was born. 
What about an “electronic envelope” 
that could hide my data and fool this 
stubborn computer mailman into be¬ 
lieving he now has a legitimate piece of 
mail. MCTel to the rescue. Their Elec¬ 
tronic Envelope software package is 
made to do just that. 

Electronic Envelope is so simple to 
use it requires no instruction manual. 
You get a disk and a postcard-size set 
of instructions containing an explana¬ 
tion of the program’s two commands, 
Insert and Remove, plus a note that 
you can type Help to receive additional 
instructions from the four document 
files contained on the disk. Believe me, 
this is more than sufficient. If you can 
breathe, you can use Electronic Enve¬ 
lope. 


Symphony , graphics files, and some 
word processors such as WordStar save 
data using codes outside the normal 
printable ASCII range or in binary 
form. Most electronic mail systems 
transmit only data within the printable 
ASCII range and cannot handle these 
special file formats. This is where Elec¬ 
tronic Envelope takes over. It encodes 
binary data and ASCII data outside the 
printable range to appear as printable 
ASCII text to electronic mail systems. 
The XMODEM protocol used by many 
telecommunications programs works in 
a similar manner except the data is 
encoded and decoded in one step as it 
is transmitted and received at the dis¬ 
tant terminal. Electronic Envelope 
encodes the file and it remains that way 
until someone takes it from their mail¬ 
box and “removes” it from the “enve¬ 
lope.” 

As stated before, Electronic Envelope 
is extremely easy to use. Type Insert 
and you are prompted for the filename 
to place into the envelope (encode). You 
are then asked to provide an output 
filename to be used for the encoded file. 
This output file contains its own check¬ 
sum and is about 40 percent larger than 
the original file. It can now be left in an 
electronic mailbox. 

The recipient of the encoded file must 
also have a copy of Electronic Envelope 
to “remove” (decode) the file from the 
envelope. Typing Remove prompts you 
again for an input and output filename. 
Upon removing the file from the enve¬ 
lope, a second checksum is calculated 
and compared with the original to verify 
the file was received correctly. The 
output file created by the Remove com¬ 
mand is identical, provided the check¬ 
sums match. 

This completes the mail cycle. Our 
electronic mailman has been satisfied 
and our spreadsheet, graphics file and 
document made it to its destination in 
one piece and on time. An added benefit 
of Electronic Envelope is confidential¬ 
ity. The encoding process creates an 
unintelligible output file. Only another 
owner of Electronic Envelope can re¬ 
move the file from its envelope in order 
to read it. 

For users of electronic mail systems, 
whether it be in-house or otherwise, 
Electronic Envelope is a must. 

(MCTel, Three Bala Plaza East, Suite 505, 
Bala Cynwyd, PA 19004, disk $49.95) 


Spreadsheets such as Lotus 1-2-3 and 


— Larry Birkenfeld 
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New Products 


The following products have recently been received 
by PCM, examined by our magazine staff and 
approved for the PCM Seal of Certification, your 
assurance that we have seen the product and have 
ascertained that it is what it purports to be. This 
month the Seal of Certification has been issued to: 



Copy II PC, software-based 
backup utility. Allows you to 
back up most copy-protected 
software. Includes disk drive 
speed test. Requires Tandy 1000, 
1200 or 3000. Central Point Soft¬ 
ware Inc., 9700 S W Capitol 
Highway, Suite 100, Portland, 
OR 97219, (503)244-5782, $39.95 
plus $3 S/H. 

Copy III PC Option Board, re¬ 
placement disk controller board. 
Allows you to make exact back¬ 
ups of nearly all copy-protected 
software, including programs not 
copiable by software-based utili¬ 
ties. Requires Tandy 1000, 1200 
or 3000. Central Point Software 
Inc., 9700 SW Capitol Highway, 
Suite 100, Portland, OR 97219, 
(503)244-5782, $95 plus $3 S/H. 

Hip-Pocket Helpers, a collection 
of 29 utility programs for MS- 
DOS machines. Requires Tandy 
1000, 1200, 2000 or 3000. ALPS, 
1502 County Road25, Woodland 
Park, CO 80863, (303)687-1442, 
$79plus $3 S/H. 

Inside the Model 100, a book by 
Carl Oppedahl covering ad¬ 
vanced assembly language and 
BASIC programming and hard¬ 
ware for the Tandy 100. Webber 
Systems, Inc., 8437 Mayfield 
Road, Chesterland, OH 44026, 
$19.95. 

Map Builder, generates, displays 
and prints maps of the continen¬ 
tal United States with different 
colors or shading based on statis¬ 
tical data. Includes coordinates 
of over 72,000 U.S. towns and 
cities. Requires Tandy 1000, 1200 
or 3000 and graphics. Geosoft 
Corporation, 38 Park Street, 
Vernon, CT 06066, (203) 875- 


7782, $250 plus $5 S/H ($150 
additional for “county bound¬ 
aries ” supplement). 

PC Tools, utility programs for 
MS-DOS computers. Includes 
resident DOS utilities and deleted 
file recovery. Requires Tandy 
1000, 1200 or 3000. Central Point 
Software Inc., 9700 SW Capitol 
Highway, Suite 100, Portland, 
OR 97219, (503)244-5782, $39.95 
plus $3 S/H. 

Personal Profile, a specilized 
database application for filing 
information about people. Han¬ 
dles up to 719 people on a single 
disk. Requires Tandy 100 and 
Disk/Video Interface. Software 
Systems of Atlanta, P.O. Box 
4251, Atlanta, GA 30302, $25. 


Ready!, resident outline proces¬ 
sor. System for organizing notes, 
ideas and facts. Software resides 
in memory and can be called up 
while using other programs. Re¬ 
quires Tandy 1000, 1200 or 3000. 
Living Videotext, Inc., 2432 
Charlestown Road, Mountian 
View, CA 94043, (415) 964-6300, 
$99.95. 

Srike, dynamic spelling checker. 
Alerts you to possible misspelled 
words as you type from within 
many popular word processors. 
Requires Tandy 1000, 1200 or 
3000. S & K Technology, Inc., 
4610 Spotted Oak Woods, San 
Antonio, TX 78249, (512) 492- 
3384, $29.95. 

TRS-80 Model 100 — A User’s 
Guide, goes beyond the standard 
operator’s manual for a guided 
tour of the features of the Tandy 
100. Tab Books Inc., Blue Ridge 
Summit, PA 17214, $15.50. 


By awarding a Seal, the magazine certifies the 
program does exist, but this does not constitute any 
guarantee of satisfaction. As soon as possible, these 
hardware or software items will be forwarded to 
PCM’s reviewers for evaluation. 



"" ■ 

★ 640K Memory Upgrade Board 

with Real Time Clock .... Only $189.95 

49.95 

29.95 


★ Serial Interface Board .Only 

★ Parallel Interface Board .... Only 


★ Hayes Compatible 
300/1200 Baud 
Deluxe Modem Board 


ACCESSORIES 


Logitech Mouse - uses standard serial port .... Only $ 99.95 

Logitech Mouse with PC Paint program.129.95 

Monitors - Zenith, CGS, Taxan 

Call for details. From 99.95 

Star SG-10 printer.249.95 

Teac, Panasonic D.S.D.D. drives.119.95 

10 discs in an attractive styrene case.12.95 

Deluxe keyboard drawer 3 W high computer platform 
with sliding keyboard drawer. Ball bearing glides 
and locks. Enamel finish to match your PC .69.95 


IBM COMPATIBLE PCX- 


IBM Compatibility at sensational prices!! 
Starting at only $685.00 

Complete, deluxe 640K system includes 150 watt power supply, 
2 Teac floppies, printer and serial port, 
clock, amber monitor and many other extras. 

$1080.00 

20 meg hard drive - $525.00 

We maintain a library of quality public domain software 
for purchasers of our computer systems — text processor, 
data base manager, spread sheet, communication, 
utilities and entertainment software. Call for details. 


MS-DOS SOFTWARE 


DAC ACCOUNTING - General ledger, receivables, 

payables, inventory. Unbelievable bargain at only .. $69.95 

MARK DATA - Our popular ledger system 
with detailed operating manual.Only $69.95 

DBASE III - Ashton Tate’s powerful database 
management system. $389.00 

The Twin - Works exactly like Lotus 1-2-3 
Outstanding value. $ 145.00 

VP Planner - Another great 

Lotus look-alike.Only $99.95 

CoCo Util II - A valuable utility program that allows you to 
transfer Tandy CoCo disc files to your MS-DOS machine. You 
may also transfer MS-DOS files to a Color Computer disc. Save 

countless hours of typing.New Version $39.95 

or upgrade from Version I $12.95 
including shipping. 


24001 Alicia Parkway, #207 
Mission Viejo, CA 92691 (714) 768-1551 

SHIPPING: All orders under $100 please add $2 regular, $5 air. All orders over $1001 please add13% regular 
8% air California residents please add 6% sales tax Orders outside the continental U.S., check with us for 
shipping amount; please remit U.S. funds. Software authors - contact us for exciting program marketing 
details. We accept MasterCard and VISA. Distributed in Canada by Kelly Software. 
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pcm: BARCODEDUSTINCS 


Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin¬ 
ning with Line 1 and contin¬ 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin¬ 
ning of the program itself. The 
computer will sound a high- 


pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success¬ 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You’ll hearthis when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc¬ 
cessful read. 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
basic program. This is done 
quite simply by going to basic 
and loading the file with a 
command such as lord"TEST 
-DO" (if the program name 
were TEST). The program will 
load into basic and will be 
ready to run. To save the 
program in basic’s com¬ 
pressed format (.br exten¬ 
sion), you’d type SRVE"TEST" 
(if the program were named 
TEST). You may then kill the 
.do file with kill "TEST.do". 


BAREAD 2.1 

1000 ' *** Initialize *** 

1010 ON ERROR GOTO 1040 
1020 CLEAR 1000:MAXFILES=2 
1030 GOTO 1050 

1040 IF ERR=5 THEN RESUME NEXT 
1050 ON ERROR GOTO 0 
1060 RUNM "B30F9" 

1070 OPEN "WAND:" FOR INPUT AS #1 
1080 UC%=-1 

1090 PC$="0123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
1100 DIM RW$(36) 

1110 ER$(l)="You must scan line 1 first! 

tt 

1120 BR$(2)="You've SKIPPED a line!" 

1130 ER$(3)-"You've ALREADY SCANNED this 
line!" 


1140 ER$(4)="Code not PCM2/39 format!" 
1150 ER$(5)="Command not applicable here 
! " 

1160 ER$(6)="You cannot skip this line!" 
1170 ER$(7)="Selected resume file not in 
computer!" 

1180 ' *** Read Reserved Words List ***■ 
1190 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL.D 
EFINT,DEFNG,DEFSTR,ELSE,GOSUB,GOTO 
1200 DATA INKEY$,INPUT,INSTR(,LCOPY,LEFT 
$(,LINE(,LOADM,LPRINT,USING,MAXFILES 
1210 DATA MID$(.NEXT,PEEK,POKE,POWER,PEE 
SET(,PRINT,READ,RESTORE,RETURN,RIGHT$( 
1220 DATA SOUND,SPACE$(,STRING$(,THEN 
1230 FOR I%=1 TO 36:READ RW$(I%):NEXT 1% 
1240 ' *** Procedure Begins Here *** 

1250 CLS : PRINT(344, "PCM Bar Code Program 
Reader v2.1" 

1260 LINE(20,4)-(219,18),1,B:LINE(22, 6) - 
(217,16),1,B 
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127$ NN%-1 

128$ GOSUB 166$:IF ER%>$ THEN GOSUB 162$ 
:GOTO 128$ 

129$ IF LL%=$ AND INSTR("YN",IL$)>$ THEN 
ER%==5 : GOSUB 162$: GOTO 128$ 

13$$ IF LL%=$ THEN ON INSTR("ALSR",IL$) 
GOTO 182$,189$,198$,2$5$ 

131$ IF LL%=1295 THEN 135$ 

132$ IF LL%ONN% AND NN%*=1 THEN ER%=l:GO 
SUB 162$:GOTO 128$ 

133$ IF LL%<NN% THEN ER%=3:GOSUB 162$:GO 
TO 128$ 

134$ IF LL%>NN% AND NN%>1 THEN ER%=2:GOS 
UB 162$:GOTO 128$ 

135$ IL$-RIGHT$(IL$,19) 

136$ IF LL%-1 AND NN%>$ THEN GOSUB 178$ 
137$ CL$=CL$+IL$ 

138$ FOR I%-1 TO LEN(CL$) 

139$ CH$=MID$(CL$,1%,1) 

14$$ IF CH$="%" THEN GOSUB 151$:IF NL 

% THEN 147$ ELSE GOTO 144$ 

141$ IF CH$-"/" THEN GOSUB 155$:IF NL 
% THEN 147$ ELSE GOTO 144$ 

142$ IF CH$="." THEN UC%-NOT(UC%):GOT 

0 145$ 

143$ IF CH$=>"A" AND CH$<*»"Z" AND NOT 
(UC%) THEN CH$=CHR$(ASC(CH$)+32) 

144$ XX$=XX$+CH$:IF RIGHT$(XX$,1)=CHR 

$(13) THEN PRINT#2,XX$;:XX$="":UC%=-1 
145$ NEXT 1% 

146$ CL$="" 

147$ PRINT@2$$,SPAGE$(8$); 

148$ IF LL%<>1295 THEN NN%=LL%+1:GOTO 12 
8$ 

149p 1 *** Done *** 

15$$ CLOSE:CALL 618$7!:CLEAR 5$$,HIMEM:M 
ENU 

151$ ' *** Decode Reserved Word *** 

152$ NL%=$:IF I%>LEN(CL$)-1 THEN NL%—1: 
CL$="%":GOTO 154$ 

153$ I%-I%+1:CH$=RW$(INSTR(PC$,MID$(CL$, 

r%,i») 

154$ RETURN 

155 $ ' *** Decode Hex and Control Charac 
tens 

156$ NL%=$:IF I%>LEN(CL$)-1 THEN NL%=-1: 
CL$="/" ’• GOTO 161$ 

157$ I%=I%+1:IF INSTR("/%.",MID$(CL$,1%, 
1))>$ THEN CH$=MID$(CL$,1%,1):GOTO 161$ 
158$ IF I%>LEN(CL$)-1 THEN NL%=-1:CL$=RI 
GHT$(CL$,2):GOTO 161$ 

159$ HX$=MID$(CL$,1%,2):CH$=CHR$((INSTR( 
”$123456789ABCDEF",LEFT$(HX$,1))-1)*16+I 
NSTR("$123456789ABCDEF",RIGHT$(HX$,1))-1 
) 

16$$ I%-I%+1 
161$ RETURN 

2$ ’ *** Error Codes *** 

163$ SOUND 5$$$,1$:SOUND 8$$$,1$:SOUND 5 


$$$,1$ 

164$ PRINT@22$- . 5*LEN(ER$ (ER%.) ) ,ER$(ER%) 
165$ RETURN 

166$ ' *** Get Code Line *** 

167$ PRINT@173,;:PRINT USING "Scan lin 
e ###";NN% 

168$ IF NN%=-1 THEN PRINT@173,"Scan any 
line"-.GOTO 17$$ 

169$ SOUND 5$$,5 
17$$ INPUT#1,IL$:ER%=$ 

171$ FOR I%=1 TO LEN(IL$) 

172$ IF MID$(IL$,I%,1)="!" THEN MID$(IL$ 

173$ NEXT 1% 

174$ IF LEN(IL$)Ol AND LEN(IL$)021 THE 
N ER%=4:RETURN 

175$ IF LEN(IL$)=1 THEN LL%=$:RETURN 
176$ LL$=LEFT$(IL$,2):LL%=(INSTR("$12345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ",LEFT$(LL 
$,1))-1>*36+INSTR("$123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ",RIGHT$(LL$,1))-1 
177$ RETURN 

178$ 1 *** Open Program File *** 

179$ PN$=LEFT$(IL$,6):IL$=RIGHT$(IL$,LEN 
(IL$)-6) 

18$$ OPEN PN$ FOR OUTPUT AS #2 

181$ RETURN 

182$ ' *** Abort *** 

183$ BEEP:BEEP:BEEP 

184$ PRINT@2$9,"ABORT! Are you sure?"; 
185$ INPUT#1,AN$ 

186$ IF INSTR("YN",AN$)=$ THEN BEEP:PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 185$ 

187$ PRINT@2$$,SPACE$(8$); 

188$ IF AN$—"Y" THEN CLOSE:KILL PN$+".DO 
"-.GOTO 149$ ELSE GOTO 128$ 

189$ ' *** Skip Line *** 

19$$ IF NN%=1 THEN ER%=6:GOSUB 162$:GOTO 

128$ 

191$ BEEP:BEEP:BEEP 

192$ PRINT@21$,"SKIP! Are you sure?" 

193$ INPUT#1,AN$ 

194$ IF INSTR(”YN",AN$)=$ THEN BEEP:PRIN 
T@251,"Scan 'YES’ or 'NO'":GOTO 193$ 

195$ PRINT@2$$,SPACE$(8$); 

196$ IF AN$=”Y" THEN NN%=NN%+1 
197$ GOTO 128$ 

198$ ' *** Stop & Save *** 

199$ BEEP:BEEP:BEEP 

2$$$ PRINT@2$7,"STOP & SAVE! Are you sur 
e?" ; 

2$1$ INPUT#1,AN$ 

2$2$ IF INSTRC'YN",AN$)=$ THEN BEEP:PRIN 
T(§251, "Scan 'YES’ or 'NO'": GOTO 2$1$ 

2$3$ PRINT@2$$,SPACE$(8$); 

2$4$ IF AN$="Y" THEN 149$ ELSE GOTO 128$ 
2$5$ ’ *** Resume *** 

2$6$ IF NN%<>1 THEN ER%=5:GOSUB 162$:GOT 
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0 1280 

2070 PRINT@254,"Resume Mode"; 

2080 NN%=1:GOSUB 1660 

2090 IF LL%=0 THEN ER%=5 ELSE IF LL%Ol 
THEN ER%=1 

2100 IF ER%>0 THEN GOSUB 1620:GOTO 2060 
2110 PN$=MID$(IL$,3,6) 


2120 ON ERROR GOTO 2140 

2130 OPEN PN$ FOR INPUT AS #2:GOTO 2170 

2140 RESUME 2150 

2150 CLOSE #2 

2160 ER%=7:GOSUB 1620:GOTO 1270 

2170 CLOSE #2:OPEN PN$ FOR APPEND AS #2 

2180 NN%*=-l:GOTO 1280 


RSM. DO (FROM PAGE 91 ) 


i iiniiiiniiiiiiiiiiiiiiiiHiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiNiiiiiiii 
^iiniiiiiiiiiiiiiiiiRniniiiiiiiiiiiiiiiiiiiiiiiiiini 

3 iiiNiuiiNiiiiiiiHiiiiiiiniiiiiiiiiiiNniiiiiiiiii 

4 lillllllHIllllllllllllllilllllllllllliniillllllllMMIl 
3 illlllllllllllMlMIIIIIIIIHIIIIIIII MBi lll l ll lHM Illllll l 

6 iiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiHiiiiiiiiiiiiiiiuiiiiiiiiiiii 
MIRIlllllllllllllllHlllllllllllllilllllllllinilNlllllllllllll 

b iiiiiiiMiiiiiiiNiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiii 
3 iiiiiiiiiiiiiiiiiiiNiiiiiiiiiiniiiiiiiiiiiiiiiiiiiii 

10 iiiiiniiiHMiiiiiiiiiiiiniMiiniiiiiiiiiiiiiiiiHiiHiiiiiiiiiii 

11 lllllIIIIlllllHllllllinillllllllllllUlllllllMllllliiii 
13 IlNHIIIIIIIIIIWIIIIIIIinillillllMIIHIIllllllllllUllllllll 

13 RiniiiiuiiMiiiiiiniiiiiiiiiiiiiiiiiiniiiiiiiiiiii 

1 4 illllllllllllllllllllllRIilllllllllllllllllllllllllllllHill 
is lllllllllllllllllUlllllllllllillllllllllllllllllllllllllllllHIl 

is liNiniiiiniiuiiiiiiiHiiiiiiiiiiiiiiiiniiMiiiiiiii 

13 . . II 

13 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIRRIIIIIIIIIIIIIIIIIIIMIIIIII 
i3 iHNiiiiniiiiiiiniiiiiiiiiiiiiniiiiiRuiii 

3 0 iiiuiiiiiniHiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiRniiiiiiii 

3 1 iRiiiiiiiiiiiiiiiniinniiiiiiiiiiiwiiniiiiivn 
33 iiiiiimiHiiiiiiiiiiiiMniiii«iiiiiiiiiiiiiiiiiiiHiiiiiii 
33 iiiiiiRiiBiiiiiiiiiwinniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiM 
3 i iiRiniiiiiiiiiiiigiiiiiiiniiiiiiiiiiHiiiNNiii 
35 MiiinniiiiiiiiiiiiiiiiiiiiiniiiRiiiiiiiiiiiiiiiiiiiiiiiiiiiii 


3 s iiiiiniiiiiifliiiiiiiiiiuiiiioiiiiiiiiiiiHiiiiiiiiiii 
33 iiiniNiiiiiiinigiiiiiiHiHiiiiiiiiigiiiiiiiiiiiiH 
33 iiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiigiiiiiiiiiiiiiiiiniiiiiiiiiiii 
33 iiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiinniiiiiiiiiiHiii 

3«> iiiiiiHiiiiiiniiiHiiiiHiiiiiiRiiiiiiiiiiiniiiiiiiiiii 
3i IlillllllllllllllllilllllllllllllinilllNRRIIIIIIIIIlIl 
33 IIIIIIIIIIHIIIIIIIIinHIIIIIIllIHliHIIIIIIIIIIIIIIIIIIHII 
33 iiiiiiiiniiiiiiiiiiiiiiiimiiiiiiMiiiiMiiiiiiiiiH 
33 Hlllllllllllllllllllllliillllllllllllllillllllllllllllilll 
35 iiiiiiniMiiiiiiRiiiiiiniiiiiiiiiiMiiiiniHiiiiiiiiiiii 
35 ■iiiiiiiiiiiiniiiiiiiiiRniiiniivniiiiiHiiiiiiiii 
33 niiiiiiiiiiiiiiiiiiiiiiiiiHiiiiiiiiiiiiiiiiiiiiiiiiiinai 
33 luiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiuiiiiuiniii 
33 IIIIIIIIIIIIIIIIHIIllillllllHIIIIIIIIBlllll H II I IIIIIIIIi 

40 iinmiiiiiiiiiiiniiiiiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiiiHiiiiiiiii 

4 1 llllllliNMIllllllllllllllllllllllllllllllllinilllliliOilliiiil 

42 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiminiiiiiiiiiiiiioiii 

43 iiniiiRiiiiiiRiiiiiiiiiiiiiiiiiiiiiiiiiiiaiiiiiiiiiiiiiiii 

44 IlllViHNIlllIIIIIIIIIIIIIINIIIIIIIIIIIIIIIIIIIIIIIlllllR 

45 ■MllllllllllllKHIIillllllllllHIIIIIIIIIIIIIllllHIII 
40 iiiiiiiiiiiiiiwiiiiiniiiiiviiiiiiiiiiiiiiiiRiiiiiiiiniiiiiii 

42 iinniiiiiiiniiiiiiiiiiiiiiiiiiiiiiMiiiiiiNiiiiiiii 
40 iiiiiiiiiiiiiiiiiiiiiiiRiiinRiiiiiigniiiiiiiiiiii 
4 3iiiiiiiiiiHiNHiiiiiHiHiiiiiiiiiiiiiiiiiiiiiiiiiinniiiiii 

50 llllMIIIIIIIINIIHIIIIIIHIIIIIIIIIIIIIIlllllllIIIHIIIIIill 

51 IHIIIIilllllllllllllllllHIIIIIIIIIIIinillllllHIIIIIIIIIIIIIl 
33 liiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiii 

53 iiiiniiiiiiiiiiiiiiiiiiiiiiiniiiNiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

54 IIIIIIIIIIIHIIIHIIIIHIIIIIIllllllHIIIIIIIIllllllllliiiiiii 

55 iiiiHiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiwiiiiiiiiiiiiimiii 

55 iiiiiiiniiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiHniii 
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in mi mm mi i 

iiiiiiiiiiiiiiniiiiiiiuiHi 

19E 

> Hiiiiiiniiiiiiiiiiiiiiiniiiiii 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

154 

iiiniiiiiiHiiiiii 

iiiiiiniiiiiiiiiiiiiiiiiiiiiiiii 
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The Rackseller 


ALABAMA 

Birmingham 

Florence 

Greenville 

Madison 

ARKANSAS 

Fayetville 

ARIZONA 

Phoenix 

Sierra Vista 
Tempe 
Tucson 
CALIFORNIA 
Citrus Heights 
Elk Grove 
Half Moon Bay 
Livermore 
North 
Hollywood 
Santa Rosa 
Sunnyvale 
COLORADO 
Salida 
DELAWARE 
Middletown 
Wilmington 
FLORIDA 
Boca Raton 
Davie 

Ft, Lauderdale 
N, Miami 
Beach 
Orlando 
Panama City 
Pensacola 
Tallahassee 
GEORGIA 
Atlanta 
ILLINOIS 
Chicago 


Oakbrook 

INDIANA 

Highland 

Scottsburg 

IOWA 

Ames 

KANSAS 

Wichita 


Jefferson News Co. 

Anderson News Co. 

M&8 Electronics/Radio Shack 
Madison Books 


Vaughn Electronics/Radio Shack 


Computer Pro 
Tri-Tek 

Livingston's Books 
Computer Library 
Anderson News Co. 


Software Flus 
Micro Mainframe 
Strawflower Electronics 
Software Galerla 

Levity Distributors 
Sawyer's News 
Computer Literacy 

Radio Shack 

Delmar Co. 

Normar Inc.—The Smoke Shop 


Software, Software, Inc. 
Software Plus More 
Software Connection 

Almar Bookstore 
Book Mania 

Computer Systems Group 
Anderson News Co. 
Anderson News Co. 


Guild News Agency 

Chas. Levy Distr. 
Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 
Prairie News Agency 
Kroch's & Brentano's 


Computer Health Consultants 
Radio Shack of Scottsburg 

Myers TV & Stereo Repair 


Lloyd's Radio 


KENTUCKY 


OKLAHOMA 


Georgetown 

Goodwin Electronics 

Oklahoma 


Louisville 

Prospect 

Hawtey-Cooke Bookstores 

Falsoft, Inc. 

City 

OREGON 

Merit Computers 

LOUISIANA 


Portland 

Fifth Avenue News 

Crowley 

Aeadiana News 

Woodbum 

Pioneer Electronics 

Gretna 

Slidell 

Computer Supply Store 

Radio Shack 

PENNSYLVANIA 

Philadelphia 

Newsy 

MASSACHUSETTS 


Phoenixville 

Stevens' Radio Shack 

Littleton 

Computer Plus 

Wind Gap 

Micro World 

Marlboro 

Radio Shack 

RHODE ISLAND 

MICHIGAN 


Newport 

Kelly's Variety 

Rochester 

Rochester Book Center 

TENNESSEE 

Knoxville 

Sterling Heights 

Programs, Inc. 

Software City 

Gerry's Book Co. 

Anderson News Co. 

Wyoming 

Memphis 

Nashville 

Computer Center 

Mosko's Book Store 

MISSOURI 


Smyrna 

Delker Electronics, Inc. 

Independence 

Digital Enterprises, Inc. 

TEXAS 

Bay City 

St. Louis 

Software Center 

Impulse Computers 

NEBRASKA 


Ft. Worth 

A & A International 

Lincoln 

Hobby Town 

VIRGINIA 

NEW HAMPSHIRE 


Alexandria 

Alonso Book & Period 

West Lebanon 

Vejham News Corp. 

Norfolk 

1-0 Computer 

NEW JERSEY 


Wythevllle 

Wythevllle Electronics 

Clinton 

Micro World II 

WASHINGTON 


Hackensack 

Total Circulation Service 

Kennewick 

Satellite TV Specialists 

Pennsvllle 

Dave's Electronic Radio Shack 

WEST VIRGINIA 

NEW MEXICO 


Lesage 

Pioneer Technology 

Alamogordo 

New Horizons Computer Systems 

WISCONSIN 

Albuquerque 

NEW YORK 

Fredonia 

Hudson Falls 

News and Bookstore 

Page One Newsstand 

On Line: Computer Access Center 

GA West & Co. 

Ladysmith 

Madison 

ARGENTINA 

Cordoba 

Electronics, Etc. 

20th Century Books 

Informatlca Y Telecomunicaciones 

NORTH CAROLINA 


CANADA: 


Cary 

News Center in Cary Village 

ALBERTA 


Sylva 

Total Data Systems 

Calgary 

Rainbow Software Services 

NORTH DAKOTA 

Fargo 

Computer Associates 

Edmonton 

CMD Micro 

Kelly Software Distributors 

OHIO 

Blanchester 

BRITISH COLUMBIA 


J R Computer Control 

Sidney 

Sidney Electronics 

Cincinnati 

Cinsoft 

NOVA SCOTIA 


Kenton 

T.W. Hogan & Assoc., Inc. 

Halifax 

Atlantic News 

Mount Orab 

Mount Orab Radio Shack 

QUEBEC 


Toledo 

Leo’s 

LaSalle 

Messagerles De Press© Benjamin 


Also available at these selected bookstores: B. Dalton, Pickwick Books, Encore Books, 
Barnes & Noble, Little Protessors, Tower Book & Records, Kroch’s & Brentano’s, and 
Community Newscenters. 


Advertisers Index 


A DVFNT PRODUCTS 

71 
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116 

AMERICAN CRYPTRONICS, INC. 
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36 

RF A MAN PORTF.R IN C 
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rOMPTTTFR PLUS 

_3 

COMPUTER SOLUTIONS 

12 

DOM DATA PRODUCTS 
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DFW COMPUTER CENTER 

26 

FNVISION DFSIONS 
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FFDFRAI HIT I SOFTWARF 

103 

FORT WORTH OOMPTTTFRS 

34 

HARD DRTVF SPECIALIST 
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1 ESCRIPT WORD PROCESSING SYSTEMS 

103 

I ONFSTAR SOFTWARF 
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MARK DATA 
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MARYMAC INDUSTRIES 

48 
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IFC 

MICRO MATNFR AMF 

99 
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75, 108 

NORTH FDC.F SOFTWARF 

66 

OFDWARF 
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OWT -SFRVTOFS 

106 

PCM RACK ISSUES 

104 

PCM ON DISK 

49 

PFRRY COMPTITFRS 

93 

PERSONICS 

114 


PORTABLE COMPUTER 


SUPPORT GROUP_63, BC 

POWERSOFT_101 
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42 
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ROSS COMPUTFR SERVICES 
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SMALL COMUTER CO INC. 

5 

SOFTWARE SUPPORT 
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Davis, Gregg and Associates 
Cindy J. Shackleford, president 
12110 Meridian South, Suite 5 
P.O. Box 73-578 
Puyallup, WA 98373-0578 


(206) 848-7766 
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Advertising Representative 
The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 
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Top-of-the-line: Open Access’ 
NOW ONLY $395* 



Open Access has sold almost 50,000 copies overseas, and many more in 
the U.S. thanks to Radio Shack® With one of the most powerful 
Relational Databases around, and just about all the additional features 
you could want, it’s no wonder. Just the Goal Seeking feature 
in the Spreadsheet alone should make Open Access 
your customer’s #\ choice. 

(We’re even written in 11 languages with exact file transfer.) 
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V. 

Relational Database 
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_ __„ , , .. 





^ Word Processing J 


\ 



Spreadsheet 


r 'n 



Communications 


r -"\ 



^ Time Management J 



Available through your exclusive Express Order Software System 

90-0114 Tandy2000 • 90-0247 Tandyl200 • 90-0437 TandylOOO 

The product’s exceptional. The price extraordinary. Can you really afford to compromise any longer? 



SPI 


SOFTWARE PRODUCTS INTERNATIONAL 


10240 Sorrento Valley Road ■ San Diego, CA 92121 

Open Access and §$ are registered trademarks of Software Products International, Inc; Lotus 1-2-3 and Symphony are registered trademarks of Lotus Development Corp.; 
Framework is a trademark of Ashton-Tate; Smart System is a registered trademark of Innovative Software; Tandy 1000/1200/2000 are trademarks of Radio Shack, a division of Tandy Corp. 






































































































All on one ROM. Truly the finest four programs 
available for the Model 100 — guaranteed. 
Try it for 30 days. If you aren’t blown away by the 
excellence return it for a full refund. 


The four best programs for the Model 
100 all on one ROM. 32K of power with¬ 
out using any RAM for program stor¬ 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 
main menu like built-ins. 

Write ROM — the definitive word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu¬ 
ments into text from just a code. MAP 
lets you see a picture of your document. 
In all there are 60 features and func¬ 
tions. No one can claim faster operation. 
FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100 compares with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as a single 
program. Infoworld says it “makes the 
Model 100 a viable writing unit... sur¬ 


passed our highest expectations for 
quality and clarity. ” 

Lucid Spreadsheet: This is the one 
PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as “excellent” and 
said “makes the Model 100 compute.” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K on a desktop. Program gener¬ 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func¬ 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every¬ 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input screens as simply as typing into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 
wish. Prints out reports or forms, get¬ 
ting information from as many files as 


you like. Complete math between fields. 
Total interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does on a PC but a whole lot better. 
Includes a Sort for your headlines. Lets 
you have headlines of up to 240 charac¬ 
ters. Has cloning, hoisting and sideways 
scroll up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. This is the way to plan and organize 
your projects. 

Present Lucid and Write ROM 
owners can upgrade for $150. If you 
have both it’s $125. 

As usual PCSG sells the Super ROM 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply 
return it for a full refund. 

We are excited about this product. 
Super ROM gives the Model 100 the 
true power of a desktop. No other multi¬ 
program ROM has software that com¬ 
pares. But don’t take our word for it. We 
invite you to make that comparison 
yourself. Priced at $199.95 on Snap-In 
ROM. 

Got stuck with somebody else’s multi-ROM? 

We’ll upgrade it for $150. 


( 214 ) 351-0564 


11035 Harry Hines Blvd., #206, Dallas, TX 75229 

MC, Visa, American Express, Check, or C.O.D. 


©PCSG 
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